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Games listed by program difficulty 
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BASKET 
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ILACKJACK 
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COM PAT 
DATE 
DOGS 
EASTER 
ESCAPE 
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GOLF 
GUNNER 
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JACKPOT 
KISMET 
NOTONE 
POEM 
POKER 
PSYCHO 
ROLL ON 
SKEEDOODLE 
STAR TREK 
STOCK 
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TENNIS 
TIC-TAC-TOE 
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Until the last few decades, playing games was restricted to man's mind 
or to the use of crude machines. Today, however, with the rapid 
growth in the development and use of the computer, electronic games 
have grown in popularity. Programming digital computers has made it 
possible for us to enjoy complicated problem-solving activities as well 
as many games that formerly, and in reality, required great skill and 
many years of practice. 

Computer game playing is commonly practiced in business, the aca- 
demic field, and in homes throughout the world. The invention of mini- 
computers and/or microcomputers has enabled many thousands of 
people to enjoy the wonders of the digital computer. Playing computer 
games helps you to learn the computer language, and it also gives you 
more confidence in the use of the computer terminal. 

Electronic teletype terminals and/or CRT screen units are used to 
communicate with the computer. A programming language is used 
along with the terminal. One such terminal language is BASIC. BASIC 
was originally created at Dartmouth College in order to help students 
use the computer. Today, BASIC is the most widely used time-sharing 
language. This particular programming language is also very easy to 
learn, and therefore it is well suited for computer games. Learning to 
play computer games in the BASIC Language is a relatively simple 
task, and programming into the computer can be accomplished without 
any difficulty. 

We believe that these computer games in the BASIC language will 
be enjoyed by more and more people in the nearfuture. The availability 
of personal computers to businesses, schools, and homes is now here— 
and at relatively inexpensive prices that seem to get lower all the time. 
Our book, Computer Games for Business, School, and Home, fills a 
need Victor and I knew existed, a need for a reference book containing 
an excellent selection of popular and new, exciting games, as well as a 
guide to BASIC programming. The games and sample runs were 
authored by Victor, and the book was compiled and edited by myself. 
We blended our talents to produce a book that we hope will bring you 
hours of entertaining fun for many years to come. 

William S. Hodges 
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Games listed by program difficulty 

Program name Page 

EASTER (least difficult) 44 

BULLET 26 

POEM 98 

PSYCHO 109 

JACKPOT 78 

ROLL ON 115 

NOTONE 90 

DATE 33 

BIORHYTHM 9 

COM PAT 29 

GUNNER 65 

TENNIS 140 

GOLF 58 

BASKET 1 

BOGGLE 21 

HORSE 70 

STOCK 129 

ESCAPE 46 

FISH 53 

SKEEDOODLE 119 

TIC-TAC-TOE 146 

STAR TREK 124 

TAPLAB 136 

DOGS 37 

BLACKJACK 14 

KISMET 82 

POKER (most difficult) 103 



VIII 
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Description 

Dr. James A. Naismith, an instructor at the International Young Men's 
Christian Association Training School (now Springfield College) in 
Springfield, Massachusetts, invented the game of basketball in 1 891 . 
Dr. Naismith created the game, using two empty peach baskets as goals 
and a soccer ball, in order to maintain the training school's athletic 
attendance in the winter months. Today basketball is enjoyed world- 
wide by both men and women and boys and girls playing at many dif- 
ferent levels of skill. 

The following program is for a game of basketball between two 
players using professional (American) rules. One player is from Los 
Angeles and the other from Boston. The game is divided into 2 halves 
of 24 minutes each with 1 2-minute quarters (periods). There are 1 



1 



offensive options and 3 movement options. The 10 offensive options 
include: pass, dribble, spin, between the legs, jump shot, hook shot, 
stuff shot, lay up, corner shot, and long bomb. The 3 movement op- 
tions are: backward direction, no direction, and forward direction. The 
game is won or lost by using the offensive and movement options stra- 
tegically against the opponent. A time clock is used in the action of 
the game to force the players to shoot within 24 seconds as done in pro- 
fessional basketball. 



Variable list 



C = Boston's variable rating 

D = Los Angeles's variable rating 

E = Boston's points 

F = Los Angeles's points 

H = Minutes passed in quarter 

I = Probability of making shot 

J = Number of turnovers 

K = 1 for Boston's ball 
2 for Los Angeles's ball 

P9 = Period of play 
X = Option of move 

Y = Direction of move 

Z9 = Position of ball 



Sample run 

THIS IS A BASKETBALL GAME. 



iptions: 




1 


PASS 


'."> 


DRIBBLE 


3 


SPIN 


4 


BETWEEN THE LEGS 


5 


JUMP SHOT 


6 


HOOK SHOT 


7 


STUFF SHOT 


S 


LAY UP 


9 


CORNER SHOT 


10 


LONG BOMB 



TO TYPE IN OPTION r USE THE THE FOLLOWING FORMAT: 

? XjY 

WHERE X IS THE OPTION NUMBER AND 
Y STANDS FOR THE FOLLOWING! 

-1 FOR BACKWARD DIRECTION 

FOR NO DIRECTION 

1 FOR FORWARD DIRECTION 



LOS ANGELES'S BALL 

CLOCK 2 SECS. 

? :l. y 1 

BALL NEAR THEIR TOP OF KEY 

CLOCK 9 SECS, 

? 1 e :l. 

BALL NEAR THEIR TAKE OUT LINE 

CLOCK 16 SECS. 

?9 > 1 

YOU MISSED 

BOSTON'S BALL 

CLOCK 3 SECS. 

? 1 y 1. 

BALL NEAR YOUR TOP OF KEY 

CLOCK 9 SECS. 

? 1 * 1 

BALI... NEAR THEIR TOP OF KEY 

CLOCK 13 SECS. 

?2»1 

BALL. NEAR THEIR FOUL LINE 

CLOCK 15 SECS. 

?S»1 

TWO POINTS 

PERIODS 1 
TIMES 1 S 1 



SCORES BOSTON - 2 
LOS ANGELES'S BALI- 



LOS ANGELES - 



CLOCK 3 SECS. 

T 1 "| 

BALL NEAR THE CENTER OF THE COURT 
CLOCK 8 SECS. 
? :l. » 1 

BALL NEAR THEIR FOUL LINE- 
CLOCK 10 SECS. 
75,1 
TWO POINTS 

PERIODS 1 
TIMES 1 S 21 



SCORES BOSTON - 2 
BOSTON'S BALL 
CLOCK 6 SECS. 



LOS ANGELES 



BALI... NEAR THE CENTER OF THE COURT 

CLOCK 13 SECS. 

? 1 > 1 

BALL NEAR THEIR FOUL LINE 

CLOCK 19 SECS. 

?5 v 1 

TWO POINTS 



PERIODS 1 
TIMES 1 



=J9 



SCORES BOSTON - A 
LOS ANGELES'S BALL 



LOS ANGELES 



CLOCK 5 SECS. 

?2»1 

BALL NEAR YOUR TOP OF KEY 

CLOCK 12 SECS. 

?2?1 

BALL NEAR THE CENTER OF THE COURT 

CLOCK 19 SECS. 

?2yl 

BALL NEAR THEIR TOP OF KEY 

CLOCK 21 SECS. 

?2,1 

BALL NEAR THEIR FOUL LINE 

CLOCK 28 SECS. 

BOSTON'S BALL 

CLOCK 5 SECS. 

?1 ,1 

OUT OF BOUNDS 

LOS ANGELES'S BALL 

CLOCK 4 SECS. 

?5rl 

FOUL* TWO SHOTS 

IT'S BAD 

IT'S GOOD 

PERIODS 1 
TIME* 3 J 13 

SCORE! BOSTON - 4 LOS ANGELES 

BOSTON'S BALL. 

CLOCK 4 SECS, 

?2?1 

BALL NEAR YOUR TOP OF KEY 

CLOCK 10 SECS. 

?10»1 

HAVIN' TOO MUCH TO DRINK? TRY AGAIN 

CLOCK 10 SECS. 

?1»0 

BALL NEAR THE CENTER OF THE COURT 

CLOCK 16 SECS. 

?2tl 

BALL NEAR THEIR TOP OF KEY 

CLOCK 23 SECS. 

?l()yl 

YOU MISSED 

LOS ANGELES'S BALL 

CLOCK 6 SECS. 

?2 r 1 

BALL NEAR YOUR FOUL LINE 

CLOCK 9 SECS. 

?lf 1 

BALL NEAR THE CENTER OF THE COURT 

CLOCK 12 SECS. 

?10yl 

HAVIN' TOO MUCH TO DRINK? TRY AGAIN 
CLOCK 12 SECS. 

?lvl 

BALL. NEAR THEIR FOUL LINE 

CLOCK 16 SECS. 

?5»1 

TWO POINTS 



period; i 
time: 4 : 31 

score: boston 

boston's ball 



LOS ANGELES 



CLOCK 6 SECS. 
v 



qqqqqqqqqq 



Program listing 



90 C 

100 

110 

120 

130 

140 

150 

160 

170 

180 

1 °S 
1 uj 

190 
200 
210 
220 
230 
240 
250 
255 
257 
260 
270 
2S0 
290 
295 
300 
305 
310 
320 
325 
330 
340 
350 
355 
360 
363 
365 
367 
370 
3S0 
390 
400 
410 
420 
423 
425 



PRINTsPRINT 
PRINT "THIS 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT- 
PRINT 
CLS 

C=C2*RNDC0> )+2:D 
PRINT:PRINT:H=0 
K= I NT ( 2* C RND C ) ) + 1 J 
IF G=0 THEN 300 
H=H+C CG*2)/G0) :G=0 
IF K=l THEN 310 
K=l:GOTO 320 

If"k=1 THEN 330 
PRINT "LOS ANGELES'S 
PRINT "BOSTON'S BALL 
PRINT 

THEN 



A BASKETBALL GAME. ": PRINT 



"OPTIONS: "SPRINT 

1, "PASS":PRINT 2, "DRIBBLE" : PRINT 3, "SPIN" 

4, "BETWEEN THE LEGS": PRINT 5, "JUMP SHOT": PRINT S, "HOOK 

7, "STUFF SHOT":PRINT 8, "LAY UP":PRINT 9, "CORNER SHOT" 

10, "LONG BOMB" 

PRINT "HIT ENTER TO CONTINUE" " = INPUT A 

"TO TYPE IN OPTION USE THE FOLLOWING FORMAT: »: PRINT 

••■> X,Y"i PRINTS PRINT "WHERE X IS THE OPTION NUMBER AND" 

"Y STANDS FOR THE FOLLOWING :": PRINT 

"-1 FOR BACKWARD DIRECTION" 

"0 FOR NO DIRECTION" 

"1 FOR FORWARD DIRECTION" 

PRINT 

"HIT -ENTER- TO START" ;: INPUT A 



SHOT' 



C 2* RND CO > )+2 



BALL" : GOTO 340 



400 



IF H<12 

P9=P9+1 

IF P9=l THEN 370 

IF P9=2 THEN 380 

IF P9=3 THEN 390 

GOTO 1490 

PRINTsPRINT "FIRST QUARTER IS OVER!":GOTO 270 

PRINT:PRINT "HALF TIME!":GOTO 270 

PRINTsPRINT "THIRD QUARTER IS OVER!" :GOTO 270 

REM MAIN SEQ. 

G=G+INTC6*RNDC0:O+2 

PRINT "CLOCK "?G;" SECS. " : IF G<24 THEN 425 

GOTO 290 

INPUT X, Y 



430 IF X=INTm THEN 435 

433 GOTO 610 

435 IF Y=IIMT<:Y) THEN 440 

437 GOTO 610 

440 IF X<1 THEN E10 

445 IF Y<-1 THEN 610 

450 IF X> 10 THEN 610 

455 IF Y> 1 THEN 610 

4G0 ON X GOTO 490,490,510,510,530,550,570,! 

490 IF RNDC0X.025 THEN 630 

500 GOTO 930 

510 IF RNDCS) <.025 THEN 530 

520 GOTO 500 

530 IF RNDC0X. 1 THEN 1110 

540 GOTO 1270 

550 IF RNDC0X1/15 THEN 1110 

560 GOTO 540 

570 IF RNDC0X.2 THEN 1110 

5S0 GOTO 540 

590 IF RNDC0X1/25 THEN 1110 

600 GOTO 540 

610 PRINT "WHAT DO YOU THINK YOU ARE, ft GLOBETROTTER OR SOMETHING?' 

620 GOTO 420 

630 IF X=l THEN 670 

635 IF X=4 THEN 670 

640 IF RNDC0X1/7 THEN 310 

650 IF RNDC0X1/15 THEN 390 

660 IF RND<0:> <. 1 THEN 870 

670 PRINT "FOUL, ONE SHOT": 1=3 

6S0 IF K=l THEN 700 

690 N=D/5:G0T0 710 

700 N=C/5 

710 IF RNDC0)>N THEN 830 

720 PRINT "IT'S GOOD" 

730 IF K=l THEN 750 

740 F=F+lsGOTO 760 

750 E=E+1 

760 H=H+CCG*2)/60) :G=0:IF H> 12 THEN 7E5 

763 GOTO 770 

765 H=12 

770 PRINT:M9=INTCH> :S9=INT ( CH-M9) +60) 

780 PRINT "PERIOD: ";P9+1:PRINT "TIME: ";M9;":";S9 

790 PRINT:PRINT "SCORE: BOSTON ";E, "LOS ANGELES " ;F 

S00 PRINT 

810 I=-l 

820 GOTO 290 

830 PRINT "MO GOOD" 

840 IF RND<;0)>„5 THEN 8S0 

850 I=3:G0T0 960 

860 I =-3: GOTO 290 

870 PRINT "OFFENSIVE FOUL":J=J+l 

880 GOTO 760 

890 PRINT "CARRYING PENALTY" :J=J+1 

900 GOTO 760 

910 PRINT "TRAVELING PENALTY" :J=J+1 

920 GOTO 760 

930 I=I+SGNCY) 

940 IF X=l THEN 945 

943 GOTO 960 

945 1=1+1 : IF SGNCY)=-1 THEN 950 

947 GOTO 960 

950 1=1-1 

960 IF K-3 THEN 1010 

965 IF I>3 THEN 1010 

970 PRINT "BALL NEAR "; 

980 Z9=I+4 

930 ON Z9 GOTO 1040,1050,1060,1070,1080,1090,1100 



1010 PRINT "OUT OF BOUNDS" :J=J+1 

1020 I=-I 

1030 GOTO 290 

1040 PRINT "YOUR TAKE OUT LINE":GOTO 410 

J 050 PRINT "YOUR FOUL LINE" =GOTO 410 

10G0 PRINT "YOUR TOP OF KEY":GOTO 410 

1070 PRINT "THE CENTER OF THE COURT" :GOTO 410 

1080 PRINT "THEIR TOP OF KEY":GOTO 410 

1090 PRINT "THEIR FOUL LINE":GOTO 410 

1100 PRINT "THEIR TAKE OUT LINE":GOTO 410 

1110 IF RND<0>>.667 THEN 1130 

1120 I =3: GOTO 1140 

1130 1=2 

1140 PRINT "FOUL, TWO SHOTS" 

1150 FOR P=l TO 2 

1160 IF K=l THEN 1180 

1170 N=D/5sG0T0 1190 

1130 N=C/5 

1190 IF RND<0>>N THEN 12E0 

1200 PRINT "IT'S GOOD" 

1210 IF K=l THEN 1230 

1220 F=F+l:GOTO 1240 

1230 E=E+1 

1240 NEXT P 

1250 GOTO 7E0 

12E0 PRINT "IT'S BAD":GOTQ 1240 

1270 P=3 

12S0 IF I<1 THEN 12S5 

12S3 GOTO 1290 

1285 IF 12-H> 1 THEN 1370 

1290 IF X=l THE 1295 

1293 GOTO 1300 

1295 Q=<:CI*RND<:0>:>+2:>/5:GQTO 1390 

1300 IF X=S THEN 1305 

1303 GOTO 1310 

1305 Q=U*RND<0)+2)/G:GOTO 1390 

1310 IF X=7 THEN 1315 

1313 GOTO 1320 

1315 Q=CI*RND<:0)+2)/3:GOTO 1390 

1320 IF X=S THEN 1325 

1323 GOTO 1340 

1325 IF 1=1 THEN 1330 

1327 Q=INTCI*RNDC0>+2:>/4sGOTO 1390 

1330 Q=RNDC0) :GDTO 1390 

1340 IF X=9 GOTO 1345 

1343 GOTO 13E0 

1345 IF 1=3 THEN 1350 

1347 Q=0:GOTO 1390 

1350 G=<:2*RNDC0>:>/3:GOTa 1390 

1^60 Q=<'I*RND(0'.)+2)/7:GOTO 1390 

1370 PRINT "HAVIN' TOO MUCH TO DRINK?", "TRY AGAIN..." 

1380 GOTO 420 

1390 IF RNDC0MQ THEN 1470 

1400 PRINT "YOU MISSED" 

1410 IF RNDC0X.75 THEN 14E0 

1420 PRINT "YOU GOT THE REBOUND BACK!" 

1430 I=P:IF K=l THEN 1440 

1435 K=l:GOTO 1450 

1440 K=2 

1450 GOTO 290 

14E0 I=-P=GOTO 290 

1470 PRINT "TWO POINTS" :GOTO 1570 

1480 I=-P:GOTOO 290 

1490 PRINT:PRINT:PRINT:PRINT "THE GAME IS OVER ! ! !":PRINT 

1500 PRINT "FINAL SCORE: BOSTON ";E, " LOS ANGELES 

1510 PRINT 

1520 IF F>E THEN 1550 



1525 IF F<E THEN 1540 

1530 PRINT "OVERTIME! ":H=7s GOTO 2S0 

1540 PRINT "BOSTON WOM!":GOTO 15S0 

1550 PRINT "LOS ANGELES WON'" 

1560 PRINT: PRINT "NUMBER OF TURNOVERS IN THE GOME WAS ";J:END 

1570 IF K=l THEN 15S0 

1575 F=F+l:GOTO 1530 

1580 E=E+1 

1590 GOTO 730 

1600 END 
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Physical cycle 

Sensitive (emotional) cycle 

Cognitive (intellectual) cycle 



Description 

This program describes your daily biorhythmic behavioral patterns 
throughout the year. 

Biorhythm is the rhythmic course of the life process of organisms. 
There are indications that the life of an individual moves in physical 
phases of 23 days that include basic bodily functions and the sense of 
physical fitness; in sensitive (emotional) phases of 28 days that include 
mental health, creativity, and mood; and in cognitive (intellectual) 
phases of 33 days that regulate alertness, memory, and receptivity to 
knowledge. In other words, everyone biologically has periods of high 
and low peaks in their everyday experiences. 

The median (zero) line of the graph is when you have the most acci- 
dents. The high ( + ) periods are when you have the most energy, and 
the low ( - ) periods are regarded as periods when you should recu- 
perate. 

The program also is geared so that you may choose the number of 
days you want to know your biorhythmic patterns. And as an added 
feature, the day you were born is printed along with the number of 
days that have passed to the present date. 



Program notes 

You should note that line 1040 jumps to itself. This is done so that you 
can roll up the paper and tear it accordingly in order to make individual 
copies of your biorhythmic pattern. 



Variable list 



A( ) = Cumulative number of days at the end of the month 
C5 = Location to cognitive cycle 



D9 = Number of days to graph 
D( ) = Number of days in each month 
J 1 = Current day that's printing 
M1, D1, Y2 = Birthdate (month, day, year) 
M2, D2, Y3 = Today's date (month, day, year) 
M9 = Current month that's printing 
N( ) = Person's name 
P5 = Location to print physical cycle 
S5 = Location to print sensitivity cycle 
V = Number of days since birthdate 
Y9 = Current year that's printing 



Sample run 

ENTER TODAY'S DATE? ( MM» DD , YYYY ) ?4 , 1 , 1978 
ENTER BIRTHDATE? (MM ,DDf YYYY ) ?4 t 12r 1954 
ENTER NAME? JOHN G. DOE 

HOW MANY DAYS TO GRAPH? C ALIGN PAPER, HIT ENTER) ?15 



THE MEDIAN LINE (0) IS YOUR CRITICAL POINT AND IS 
WHEN MOST ACCIDENTS OCCUR. THE HIGH PERIODS (+) ARE 
WHEN YOU HAVE THE MOST ENERGY AND THE LOW PERIODS < -- ) 
ARE REGARDED AS RECUPERATIVE PERIODS, 



GRAPH SYMBOLS? 

I I M E D I A N I... I N E < L I N E ) 

PI PHYSICAL CYCLE (23-DAY) 

SI SENSITIVITY CYCLE (28-DAY) 

CI COGNITIVE CYCLE (33-DAY) 



YOUR BIRTHDAY IS APRIL 12 1954 

IT WAS A MONDAY AND OCCURRED 8755 DAYS ( 23.98 YEARS) AGO. 

HERE IS THE GRAPH FOR JOHN G. DOE STARTING AT APRIL 1 1978 
AND ENDING AT APRIL 15 1978 



DATE <■-■) (0) (+) 



SAT 


APR 


1 


1978 


S 


P 






I 




SUN 


APR- 


9 


1978 


SP 








I 




MON 


APR 


3 


1978 


SP 








I 




TUE 


APR 


4 


1978 


P 








I 




WED 


APR 


5 


1978 


SP 






I 




THU 


APR 


6 


1978 




SP 






I 




FRI 


APR 


7 


1978 






S P 




IC 




SAT- 


APR 


8 


1978. 








S P 


C I 




SUN 


APR 


9 


1978 








CS 


P 




MON 


APR 


10 


1978 






( 


!,* 


s 


p 


TUE 


APR 


11 


1978 






C 




I 


s 
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** HAPPY 24 BIRTHDAY ** 



WED 


APR 


12 


1978 


THU 


APR 


13 


1978 


FRI 


APR 


.1.4 


1978 


SAT 


APR 


15 


1978 



I 


S 




P 


I 




S 


P 


I 






S F 


I 






SF 
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Program listing 
BIORYT 



30 

100 

110 

120 

130 

140 

150 

1E0 

1S0 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2S0 

290 

300 

310 

320 

330 

340 

350 

355 

360 

365 

370 

375 

380 

390 

400 

410 

420 

430 

435 

440 

450 

460 

470 

4S0 

490 

500 



JVN-2/10/76-VER 
fl<:i2),D(:i2),NC25) 
1 = 1 TO 
1 = 1 TO 



1.9 



12 


:READ 


A < I > 


:NEXT 


I 


12 


:REOD 


Dm 


:NEXT 


I 


i9, 


90, 12(Z 


1, 151 


, 181,; 


>i 


31 


,30,31 


,30, 


31,31, 


■3 



0, 31, 30, 31 



CMM,DD, YYYY) 



CLS 
REM 
DIM 
FOR 
FOR 

DATA 0,31,59, 90, 120, 151, 181,212,243,273 
DATA 31,28, 

PRINT "ENTER TODAY'S DATE. 

M2=M:D2=D:Y3=Y 

Y5=Y 

GOSUB 300 

Z=T 

PRINT "ENTER BIRTHDATE. . . (MM, DD, YYYY) 

M1=M:D1=D:Y2=Y 

GOSUB 300 

V=T-Z 

V=ABSCV> 

PRINT "ENTER NAME";: INPUT W* 

GOTO 480 

Y1=Y-1800 

Ql=INTCYl/4> 

Q2=INTCQl/25)' 

Q3=INTC<Yl+200>/400:> 

K=0 

IF Q1*4=Y1 THEN 360 

OOTO 390 

IF Q2*100=Y1 THEN 370 

GOTO 390 

IF 0.3*400-200= Yl THEN 380 

GOTO 390 

K=l 

T=3B5*Y 1 +Q 1 -D2+Q3-K 

T=T+ACM)+D-1 

IF M<3 THEN 430 

T=T+K 

IF INTCYl/4)=Yl/4 THEN 440 

GOTO 460 

IF M>2 THEN 460 

T=T-1 

j=T-7*INTCT/7) 

RETURN 

N(X>=0 

PRINTsPRINT 

PRINT "HOW MANY DAYS TO GRAPH? (ALIGN 



304, 334 



: INPUT M,D, Y 



INPUT M, D, Y 



PAPER, HIT ENTER)' 
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510 
515 
520 
530 
540 
550 
560 
570 
5S0 
590 
600 
G10 
620 
625 
630 
640 
650 
660 
570 
680 
690 
700 
710 
713 
715 
720 
725 
730 
733 
735 
740 
745 
750 
760 
770 
780 
785 
790 
800 
810 
820 
830 

S40 

0/.T 

845 
850 

860 
870 

880 

OOcr 

OCfuJ 

830 
900 
903 
905 
907 
908 
910 
920 
923 
925 
927 
930 
940 
950 



INPUT D9SPRINTSPRINT 
CLS 

PRINT "THE MEDIAN LINE (0) IS YOUR CRITICAL POINT AMD IS" 
PRINT "WHEN MOST ACCIDENTS OCCUR. THE HIGH PERIODS C + ) ARE" 
PRINT "WHEN YOU HAVE THE MOST ENERGY AND THE LOW PERIODS <>) 
PRINT "ARE REGARDED AS RECUPERATIVE PERIODS. " 
PR I NT SPRINT- 
PRINT "GRAPHIC SYMBOLS:" : PRINT 
PRINT "I s MEDIAN LINE 



C0 LINE)" 
C 23-DAY)" 
< 28-DAY)" 
C 33-DAY)" ■ 
TO CONTINUE. 



PRINT "Ps PHYSICAL CYCLE 
PRINT "S: SENSITIVITY CYCLE 
PRINT "C: COGNITIVE CYCLE 
PRINT:PRINT:PRINT "HIT -ENTER- 
CLS 

"YOUR BIRTHDAY IS " ; : A9=M1 :GQSUB 105G 

"IT WAS A "; :B9=J+l:D0SUB 1170 

" AND OCCURR£D»-;V;" DAYS C " ; INT C (. V/3G5) *100) /1005 



5 : INPUT W 



SPRINT D1-Y2 



PRINT 
PRINT 
PR I NT- 
PR I NT- 
PRINT "HERE IS THE GRAPH FOR ";W$ 
PRINT "START AT " ; : A9=M2 : GOSUB 1050:PRINT D2;Y3 
PRINT "AND ENDED AT "; 
M9=M2 : DS=D2+D9- 1 : Y9=Y3 
IF M9> 12 THEN 715 
GOTO 720 
M9=l:Y9=Y9+l 
IF M9=2 THEN 730 
GOTO 740 

IF INTCY9/4)=Y9M THEN 735 
GOTO 740 
K= 1 

IF D8>DCM9)+K THEN 750 
GOTO 770 

DS=D8- C D < M9 ) +K ) : M9=M9+ 1 : K=0 
GOTO 710 

A9=M9s GOSUB 1050: PRINT D8 ; Y9 

PRINT:PRINT."PRINT "HIT -ENTER- TO START GRAPH.., 
CLS 

PRINT TABC7) ; "DATE" ;TAB(25) ; " <-) " 5TABC43) ; " C0)"; 
PRINT TAB(61) ;"(+)" 
PRINT 

J1=V+J: Ji=Jl-7+INT(Jl/7) :D2=D2-1 : J1=J1-1 : V=V-1 :K=0 
FOR 1=1 TO D9:V=V+l:D2=D2+l:Jl=Jl+l:IF M2=2 THEN 840 
GOTO 850 

IF INTCY3/4)=Y3/4 THEN 845 
GOTO 850 
K=l 

IF D2>DCM2)+K THEN 8E0 
GOTO 870 
M2=M2+l:D2=l 
IF Jl <7 THEN SS0 
J1=0 

IF M2> 12 THEN 890 
GOTO 900 

PRINTsPRINT TAB (33) 
IF Jl+1=3 THEN 905 
GOTO 920 

IF D2=13 THEN 908 
GOTO 920 

PRINTsPRINT TAB (22) 
PRINT "** BEWARE ! 
IF M2=M1 THEN 925 
GOTO 940 

IF D2=D1 THEN 930 
GOTO 940 

PRINTsPRINT TABC33) 
E9=Jl+lsG0SUB 1360 
PRINT " "; :C9=M2s GOSUB 1240: PRINT D2;Y3; 



YEARS) AGO. " 



; : INPUT W 



*■■+: HAPPY NEW YEAR **" : PRINT:M2=1 : Y3=Y3+1 



FRIDAY THE THIRTEENTH **":PRINT 



** HAPPY" ;ABS(Y3-Y2) 5 "BIRTHDAY **": PRINT 
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3G0 

370 

380 

383 

385 

330 

333 

335 

1000 

1003 

1005 

1010 

1013 

1015 

1020 

1023 

1025 

1030 

1040 

1050 

10E0 

1070 

10S0 

1030 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1130 

1200 

1210 

1220 

1230 

1240 

1250 

12B0 

1270 

1280 

1230 

1300 

1310 

1320 

1330 

1340 



X=23:G0SUB 1430: P5=X: X=2Ss GOSUB 

N=0:FOR L=13 TO G5 s PRINT TAB CD ; 

IF P5=L THEN 335 

GOTO 330 

PRINT "P";:GOTO 1020 

IF S5=L THEN 395 

GOTO 1000 

PRINT "B";:GOTO 1020- 

IF C5=L THEN 1005 

GOTO 1010 

PRINT "C";:GOTO 1020, 

IF 44=L THEN 1015 

GOTO 1030 

PRINT "I"; 

N=N+l:IF N=4 THEN 1025 

GOTO 1030 

L=100 

NEXT !_:PRINT:NEXT I 

GOTO 1040 



1430:S5=X:X= 



iGOBUB 1430:C5=X 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



03=1 

03=2 

03=3 

03=4 

03=5 

03=E 

03=7 

03=8 

03=3 

03=10 

03=11 



THEN PRINT "JONUORY" 5 : RETURN 
THEN PRINT "FEBRUARY" ; '. RETURN 
THEN PRINT "MORCH" ;: RETURN 
THEN PRINT "OPRIL" 5 : RETURN 
THEN PRINT "MAY" ;: RETURN 
THEN PRINT "JUNE" 5 : RETURN 
THEN PRINT " JULY" ;: RETURN 
THEN PRINT "OUGUST" ; : RETURN 
THEN PRINT "SEPTEMBER" ;: RETURN 
THEN PRINT "OCTOBER" 5 : RETURN 



THEN PRINT "NOVEMBER" ;: RETURN 



PRINT "DECEMBER"; : RETURN 
IF B3=l THEN PRINT "WEDNESDOY" ;: RETURN 
IF B3=2 THEN PRINT "THURSDAY" ;: RETURN 
IF B3=3 THEN PRINT "FRIDOY" ;: RETURN 
IF B3=4 THEN PRINT "SATURDOY" " : RETURN 
IF B3=5 THEN PRINT "SUNDOY" ;: RETURN 
IF B3=E THEN PRINT "MONDOY" ;: RETURN 
PRINT "TUESDAY"; : RETURN 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



C9=l 

C3=2 

C9=3 

C9=4 

C3=5 

C3=B 

C3=7 

C3=8 

C9=3 

C3=10 

C3=ll 



1350 PRINT "DEC"? 



13G0 IF £3=1 THEN 

1370 IF E3=2 THEN 

1380 IF E3=3 THEN 

1330 IF E3=4 THEN 

1400 IF E9=5 THEN 

1410 IF E3=E THEN 

1420 PRINT "TUE"; 

1430 X=INTCSINCCV/X 

1440 RETURN 

1450 END 



THEN PRINT "JON"; 
THEN PRINT "FEB" ' 
THEN PRINT "MOR" ; 
THEN PRINT "APR"; 
THEN PRINT "MAY"; 
THEN PRINT " JUN" ; 
THEN PRINT "JUL"; 
THEN PRINT "AUG" ; 
THEN PRINT "SEP"; 
THEN PRINT "OCT" 
■NOV" 

RETURN 

PRINT "WED"; 

PRINT "THU"; 

PRINT "FRI" ; 

PRINT "SAT"; 

PRINT "SUN"; 

PRINT "MON"? 

RETURN 

intcv/x:>)*p>*i 



THEN PRINT 



RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

: RETURN 

: RETURN 

RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 



5) +44 
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Description 

Try testing "Lady Luck" with this game! This program simulates a Las 
Vegas version of the card game of Blackjack. As many as 4 people can 
play Blackjack against a casino dealer (the computer). You each can bet 
what you want. All rules of Las Vegas Blackjack are programmed into 
this game. For example, the dealer deals 2 cards to each player. The 
first card is dealt face down; the second card is dealt face up. Finally 
the dealer deals 2 cards to himself in the same fashion. The cards dealt 
face down are called hole cards. These cards should never be seen by 
the opposition (the dealer and the other players). 

A hand consisting of 2 cards, one of which is an Ace and the other 
a Ten, is a Blackjack (or a Natural). Face cards (King, Queen, and Jack) 
also count as 10 and can be used to obtain a Blackjack with an Ace. 
The ace counts as either a 1 or an 1 1 . Obviously, a Blackjack has a 
numerical value of 21 . 

When the dealer's up card is an Ace or a Ten, he immediately must 
inspect his hole card. If the value of his hand is 21 , then he turns his 
hole card up. If the dealer's hand is 1 7 or more, then he is required by 
the rules of the game to stand. The dealer has to draw a card (called a 
hit) if his hand totals 16 or less. 

A player may decide to double down. Double downing occurs when 
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the initial bet is doubled by adding an equal amount which is placed to 
the left or right of the initial bet. The hole card is placed on the table in 
front of the bet, face up. You then get 1 more card, face down; there- 
fore, you create a 3-card hand. The next move is to compare the total 
of your hand with the value of the dealer's hand. A player should not 
double on any hand (total cards) whose value exceeds 1 1 . A card hand 
totaling 1 1 is a good hand to double down on. 

When a player splits a hand, he has been dealt his first 2 cards of the 
same count (value). He turns both face up. One card is dealt, facedown, 
on each of the 2 cards. The player now has 2 card hands to play and 
bet on. The hand on the player's right should be played first. You can- 
not double down on splits, and if you split Aces you are allowed only 1 
card per hand. 

The dealer will ask for an insurance bet when he shows an Ace. It 
should be Vi of your original bet. Insurance pays 1 to 1 if you win. If 
you get Blackjack then insurance pays 1-1/2 to 1 . 

Blackjack probability table 







Total 






2-card 




number of 




Odds 


total 


Combinations 


combinations 


% 


(hands) 


21 


Ace + 10 


64 


4.8 


1 in 21 


20 


10 + 10 
9 + Ace 


136 


10.2 


1 in 10 


19 


10 + 9 
Ace + 8 


80 


6.0 


1 in 17 


18 


10 + 8 
9+9 

Ace + 7 


86 


6.5 


1 in 15 


17 


10 + 7 

9 + 8 

Ace + 6 


96 


7.2 


1 in 14 


16 


10 + 6 
9 + 7 
8 + 8 


86 


6.5 


1 in 15 


15 


10 + 5 
9 + 6 

8 + 7 


96 


7.2 


1 in 13 


14 


10 + 4 
9 + 5 
8 + 6 

7 + 7 


102 


7.7 


1 in 13 


13 


10 + 3 
9+4 
8 + 5 
7 + 6 


112 


8.4 


1 in 12 


12 


10 + 2 
9 + 3 
8 + 4 
7 + 5 
6+6 


118 


8.9 


1 in 11 
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Blackjack probability table (continued) 



2-carcl 
total 



Combinations 



Total 

number of 

combinations 



Odds 
(hands) 
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9+2 
8 + 3 
7+4 
6 + 5 

8 + 2 
7+3 
6+4 
5+5 

7+2 
6 + 3 
5 +4 

6+2 
5 + 3 
4+4 

5 + 2 
4 + 3 

Ace + 5 
4 + 2 
3 + 3 

Ace + 4 
3 + 2 

Ace + 3 
2 + 2 

Ace + 2 

Ace + Ace 



64 



54 



48 



32 
38 



4.1 

3.7 
2.9 

2.4 
2.9 



1 in 21 

1 in 25 

1 in 27 
1 in 35 

1 in 41 
1 in 35 



32 


2.4 


1 in 41 


22 


1.7 


1 in 60 


16 


1.2 


1 in 83 


6 


.5 


1 in 221 



Variable list 

A( ) = Amount of aces in hand 

A(1 , ) = Regular hand 
A(2, ) = Split hand 

B( ) = Bet for each hand 

B(1 , ) = Regular hand 
B(2, ) = Split hand 

K( ) = = Person can't split 
1 = Person can split 

M( ) = Amount of money owned by each person 

Q = Number of player's 

S = Hand being used 

S(S,C) = = Card hasn't been used 
1 = Card has been used 
Where S is suit number 
C is card number 
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T( ) = Total points in each person's hand 

T(1 , ) = Regular hand 
T(2, ) = Split hand 



Sample run 



THIS IS A FOUR PLAYER BLACKJACK GAME. 
HOW MANY WISH TO PLAY?4 



PERSON 1 HAS * 
PERSON 2 HAS * 
PERSON 3 HAS * 
PERSON 4 HAS * 



CARDS ARE RESHUFFLED* 

PERSON 1 WHAT IS YOUR BETTIO 
PERSON 2 WHAT IS YOUR BET? 14 
PERSON 3 WHAT IS YOUR BET?8 
PERSON 4 WHAT IS YOUR BET? 17 



*** PERSON 1 

FIRST CARD IS 3 OF DIAMONDS 
SECOND CARD IS QUEEN OF CLUBS 

#** PERSON 2 

FIRST CARD IS ACE OF SPADES 
SECOND CARD IS 3 OF SPADES 

*** PERSON 3 

FIRST CARD IS ACE OF DIAMONDS 
SECOND CARD IS QUEEN OF DIAMONDS 

*** PERSON 4 

FIRST CARD IS 6 OF SPADES 
SECOND CARD IS 4 OF DIAMONDS 

***** DEALER SHOWS 5 OF SPADES 



*** PERSON 1 

YOUR TOTAL IS 13 
DOUBLE-DOWN? (1 FOR YES)?0 
HIT? (1 FOR YES)?1 

YOU PICKED THE 2 OF SPADES 
YOUR TOTAL IS 15 
HIT? (1 FOR YES)?0 

YOUR TOTAL IS 15 
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*** PERSON 2 

YOUR TOTAL IS 14 
DOUBLE-DOWN? (1 FOR YES)?0 
HIT? <1 FOR YES>?1 

YOU PICKED THE 6 OF DIAMONDS 
YOUR TOTAL IS 20 
HIT? (1 FOR YES)?0 

YOUR TOTAL IS 20 

*** PERSON 3 

YOUR TOTAL IS 21 

«* YOU HAVE BLACKJACK! *** 

*:** PERSON 4 

YOUR TOTAL IS 10 
DOUBLE-DOWN? (1 FOR YES)?1 

YOUR DOUBLE-DOWN CARD IS 5 OF HEARTS 

YOUR TOTAL. IS 15 

DEALER HAD A 2 OF CLUBS IN THE HOLE. 
DEALER PICKED A 8 OF HEARTS 
DEALER PICKED A 9 OF DIAMONDS 

THE DEALERS TOTAL IS 24 



PERSON 1 WON $ 10 

PERSON 2 WON $ 14 

PERSON 3 WON * 12 

PERSON 4 WON $ 34 



ANOTHER GAME? (1 FOR YES)?0 



PERSON 


WINNINGS 


1 


$ 10 


^ 


$ 14 


3 


* 12 


4 


$ 34 


DEALER 


$-70 


READY. 





QQQQQQQQOQ 



Program listing 
BLACKJ 



100 DIM SC4, 13),KC4),TC2, 5), fl<2. 5), BC2, 4) , MC4> 

105 CLS 

110 PRINTsPRINT 



18 



120 

130 

140 

145 

150 

160 

170 

1S0 

130 

200 

210 

220 

230 

240 

250 

260 

270 

280 

2S5 

290 

300 

310 

320 

330 

340 

350 

355 

360 

370 

3S0 

330 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

515 

520 

530 

540 

550 

560 

570 

5S0 

530 

600 

610 

620 

630 

640 

650 

660 

670 

680 

630 

700 

710 

720 

730 

740 

750 



PRINT "THIS IS A FOUR PLAYER 

C=52: PRINT "HOW MANY WISH TO 

PRINT:PRINT 

CLS 

FOR 1=1 TO Q: PRINT "PERSON " 

PRINT: IF C<51-CCQ+1)*5) THEN 

FOR 1=1 TO 5:F0R S=l TO 2 

TCS, I)=0:ACS, I)=0:NEXT S:NEXT I 

S=l:FOR 1=1 TO Q 

PRINT "PERSON " ; I ; " WHAT IS YOUR 



BLACKJACK GAME. 
PLAY"; : INPUT 



I"" 
170 



HAS *" ;MCI> 
ELSE GOSUB 



:NEXT 
1290 



BET 



INPUT B(l, I) 



BC2, I)=0:NEXT 

FOR 1=1 TO Q 

PRINT "*** PERSON " ; I 

PRINT "FIRST CARD IS 

OOSUB 1140: GOSUB 1190 

Yl=Y:GOSUB 1230 

PRINT "SECOND CARD IS 

GOSUB 11 40: GOSUB 1190 

CLS 

KCI)=0:IF Y1=Y THEN KCI)=1 



I: FOR W=l TO 750: NEXT W:CLS 



PRINT 
; : GOSUB 
PRINT 



1120 



";: GOSUB 1120 
PRINTsPRINTsPRINT 



ELSE 300 



"HIT -ENTER- TO CONTINUE" ;: INPUT W 



1140 



BET" 



GOSUB 1230: NEXT I 

GOSUB 1120:X2=X:Y2=Y:I=5:GOSUB 1230 

PRINT "*#*** " ; 

GOSUB 1120:PRINT "DEALER SHOWS ";:GOSUB 

GOSUB 1190:GOSUB 1230: PRINT: PRINT 

IF Y=ll THEN 3E0 

IF TC1,5>=21 THEN 410 ELSE 470 

PRINT "INSURANCE? (1 FOR YES)";: INPUT B: IF B=0 THEN 400 

PRINT "PERSON NUMBER? C0 TO STOP) ";: INPUT B 

IF B=0 THEN 400 ELSE PRINT "PERSON ";B;", HOW MUCH DO YOU 

INPUT BC2, B):IF BC2, BX0 THEN 380 ELSE 370 

IF TC1,5)=21 THEN PRINT ELSE 450 

PRINT "*** DEALER HAS BLACKJACK! ***": PRINT 

PRINT:FOR 1=1 TO Q:IF BC2, I)=0 THEN 440 

B(l, I)=BC1, I)-CB<:2, I)*2) 

NEXT I: GOTO S60 

PRINT:PRINT "DEALER DOESN'T HAVE BLACKJACK." 

FOR 1 = 1 TO Q:M(I)=M(D-B(2, I) :NEXT I 

B=0:D=0:FOR 1=1 TO Q: PRINT: PRINT »*** PERSON ' 

PRINT:L9=1 

IF K<:i)=0 THEN 610 ELSE PRINT "DO YOU WANT TO 

INPUT LS:IF L8=0 THEN 610 ELSE BC2, I ) =B C 1, I ) 

IF TC1,I)=12 THEN 515 ELSE 550 

IF AC1, I)=0 THEN 550 

TCI, I)=ll:TC2, I) =11 

FOR S=l TO 2:PRINT:G0SUB 1120: PRINT "HAND ";S;" PICKED A "; 

GOSUB 1140:GOSUB 1 190: PRINT: GOSUB 1230:NEXT S: PRINT: GOTO 770 
I)/2:TC2, I)=TC1, I) :FOR S=l TO 2 

:PRINT "HAND ";S;" PICKED A ";: GOSUB 1140:GOSUB 1190 
: PRINT " TOTAL IS ";TCS, I): IF TCS, I)>20 THEN 600 
ELSE PRINT "HIT? CI FOR 
THEN 560 



:PRINT 



I 



SPLI" 



CI FOR YES) 



TCI, I)=TC1, 

GOSUB 1120: 

GOSUB 1230: 

IF D9=l THEN 600 

INPUT LS:IF LS=1 

PRINT: NEXT S:GOTO 770 

S=l :PRINT "YOUR TOTAL IS ";TC1 

IF TCS, I)=21 THEN PRINT ELSE 6! 

PRINT 

BCS, I 



YES) 



I) :IF 

"*** YOU HAVE BLACKJACK! ***": PRINT 
)=BCS, D + CBCS, D/2) :TCS, I)=-l:GOTO 770 
PRINT "DOUBLE-DOWN? CI FOR YES)"; 
INPUT L8:IF L8=l THEN PRINT ELSE 700 
PRINT "YOUR DOUBLE DOWN CARD IS "; 
GOSUB 1120:GOSUB 1140:GOSUB 1190:GOSUB 1230 
PRINTSBC2, I)=BCS, I)*2:G0T0 750 
PRINT "HIT? CI FOR YES)";: INPUT L7 
IF L7=l THEN PRINT ELSE 750 
GOSUB 1120: PRINT "YOU PICKED THE 
GOSUB 11 90: GOSUB 1230:L9=0 
PRINT:IF TCS, 1X21 THEN 610 
PRINT:PRINT "YOUR TOTAL IS ";TC1,D 



L9=l THEN 620 ELSE 700 



:GOSUB 1140 
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: b=b+i 


i CONTINUE 


■ ft "; 


" IN THE 


350 






ELSE 
' ;B(S, 


9E0 
I) 



A 


ELSE 
DRAW 


990 
WITH 



7E0 IF TCSS, I)<22 THEN 770 ELSE 

770 PRINT:PRINT "HIT -ENTER- TO CONTINUE" ;: INPUT W 

775 CLS:NEXT 1 5 PRINT 

7S0 X=X2:Y=Y2: PRINT "DEALER HAD 

730 GOSUB 1140SGOSUB 1190:PRINT " IN THE HOLE. 

300 S=l:I=5:lF T(S, I)>1E THEN 

S10 IF D+Q=B THEN S50 

820 GOSUB 1120: PRINT "DEALER PICKED A "5 

S30 GOSUB 1140: GOSUB 1190: GOSUB 1230 

S40 PRINT:GOTO 800 

350 PRINT:PRINT "THE DEALERS TOTAL IS ";TCS, I ) 

SE0 PRINT SPRINT 

370 FOR 1=1 TO Q:FOR S=l TO 2 

8S0 IF TCS, I)=-l THEN 930 

390 IF TCS, I)=0 THEN 1010 

900 IF TCS, lJ>21 THEN 990 

910 IF TC1,5:>>21 THEN 930 

920 IF TCS, I )> TCI, 5) THEN 9-: 

930 PRINT "PERSON ";I;" WON 

940 MCI)=MCn+BCS, I ) 

950 GOTO 1010 

3E0 IF TCS, i:>=TCl,5> THEN SI 

970 PRINT "PERSON " ; I ; " HAD A DRAW WITH THE DEALER. 

930 GOTO 1010 

990 PRINT "PERSON ";I'" LOST $";BCS, I) 

1000 MCI)=MCI)-BCS, I) 

1010 NEXT S:NEXT I 

1020 PRINT:PRINT:PRINT 

1030 PRINT "ANOTHER GAME? CI FOR YES)"; 

1040 INPUT B: PRINT: IF B=l THEN 145 

1050 CLS 

10E0 PRINT "PERSON", "WINNINGS" 

1070 B=0:FOR 1=1 TO Q 

1080 PRINT " "; I, "*" ;MCI) 

1090 B=B-MCI) :NEXT I 

1100 PRINT "DEALER", "*";B 

1110 PRINT:PRINT:PRINT:GOTO 1310 

1120 X=INTC4*RNDC0} )+l : Y=INTC 13*RNDC0> ) +1 

1130 IF SCX,Y)=1 THEN 1120 ELSE SCX, YJ =1 : C=C+1 : RETURN 

1140 IF Y=l THEN 1145 ELSE 1150 

1145 PRINT "ACE ";: RETURN 

1150 IF Y=ll THEN 1155 ELSE 11E0 

1155 PRINT "JACK ";:RETURN 

1130 IF Y=12 THEN 1135 ELSE 1170 

1165 PRINT "QUEEN ";: RETURN 

1170 IF Y=13 THEN 1175 ELSE 1180 

1175 PRINT "KING ";:RETURN 

1180 PRINT Y; :RETURN 

1190 IF X=l THEN 1195 ELSE 1200 

1195 PRINT "OF SPADES ";: RETURN 

1200 IF X=2 THEN 1205 ELSE 1210 

1205 PRINT "OF CLUBS ";:RETURN 

1210 IF X=3 THEN 1215 ELSE 1220 

1215 PRINT "OF HEARTS ";= RETURN 

1220 PRINT "OF DIAMONDS ";:RETURN 

1230 IF Y<11 THEN 1240 ELSE Y=10 

1240 IF Y=l THEN 1245 ELSE 1250 

1245 Y=ll:ACS, I)=ACS, I)+l 

1250 TCS, I)=TCS, I)+Y 

12E0 IF TCS, I)) 21 THEN 1235 ELSE 1230 

1235 IF ACS, I>=0 THEN 1280 

1270 ACS, I)=ACS, I)-l sTCS, I)=TCS, D-10 

1230 RETURN 

1290 FOR X=l TO 4:F0R Y=l TO 13: S C X, Y) =0 : NEXT Y:NEXT X:C=0 

1300 PRINT:PRINT "CARDS ARE RESHUFFLED. ": PRINT : RETURN 

1310 END 
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Description 

This game is one of logic. You try to guess the number (0-5555) the 
computer has selected based on clues given to you by the computer. A 
clue is given to you after each of your guesses. 

The clues will be "Black" and/or "White." If the computer says 
"Black," then that means that one of the digits is correct but not in the 
right order. If the computer says "White," then you have a correct digit 
in the correct order. It is up to you to figure what number is correct. 

There are two versions of this game. The beginner's version will not 
have the same digit used twice in the number. The expert's, on the 
other hand, can have as many as 4 of the digits the same. 

One to 10 people can play. Try to see who can do the best. You 
will be graded on the total number of guesses it takes to obtain the 
number. Grades range from excellent to poor depending on a predeter- 
mined average. 
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Variable list 

C( ) = Flag to make sure two same digits aren't used in the number 
(beginner's version) 

G = Person's guess 
K( ) = Flag to determine if digit in guessed number has been processed 

Q = Number of player's 
S( ) = Flag to determine if digit in picked number has been processed 
[The program analyzes your number randomly. It would be easy 
to guess the number if the program sequentially told you what 
digits are correct.] 

T( ) = Total guesses for each player, all games 

Z( ) = Digits in number 

Z(1 ,A) = Position A of digit in number picked 
Z(2,A) = Position A of digit in number guessed 



Sample run 

THIS IS THE GAME OF MIND BOGGLER, 

DO YOU WANT THE INSTRUCTIONS? (1=YES)?1 

I AM GOING TO PICK A NUMBER BETWEEN 0000 -• 5555. 
YOU ARE TO TRY TO GET THAT NUMBER IN THE MINIMAL. 
AMOUNT OF GUESSES. 

EVERY TIME YOU GUESS A NUMBER I WILL GIVE YOU CLUES AS TO 

HOW CLOSE YOU ARE TO THE NUMBER I GUESSED. THE CLUES WILL 

BE 'BLACK' AND/OR 'WHITE'. IF I SAY 'BLACK'- THEN THAT MEANS THAT 

ONE OF THE DIGITS IS CORRECT BUT NOT IN THE RIGHT ORDER. IF I SAY 

'WHITE' THEN YOU HAVE A CORRECT DIGIT IN THE CORRECT ORDER. IT 

IS UP TO YOU TO LOGICALLY FIGURE WHAT NUMBERS ARE CORRECT. 

FOR EXAMPLE: THE NUMBER IS 5210 

YOU GUESSJ 2413 

YOU WOULD GET A 'BLACK' BECAUSE THE NUMBER 2 IS CORRECT BUT IN THE 
WRONG ORDER AND A 'WHITE' BECAUSE YOU GUESSED THE NUMBER 1 WHICH WAS 
THE CORRECT NUMBER IN THE CORRECT ORDER. 

THERE ARE TWO VERSIONS OF THIS GAME. THE BEGINNERS VERSION 
WILL NOT HAVE THE SAME DIGIT USED TWICE IN THE NUMBER. THE 
EXPERTS ON THE OTHER HAND CAN HAVE AS MANY AS FOUR OF THE 
DIGITS THE SAME. 

ONE TO TEN PEOPLE CAN PLAY. TRY TO SEE WHO CAN DO THE BEST. 

MMMMM GOOD LUCK MM****** 

ARE YOU AN EXPERT (TYPE 1) OR A BEGINNER (TYPE 2)?2 



HOW MANY WISH TO PLAY72 
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ATTENTION PERSON 1 r I AM PICKING THE NUMBER, 



WHAT IS YOUR GUESS? 1234 

WHITE BLACK WHITE 

WHAT IS YOUR GUESS?0123 

BLACK BLACK 

WHAT IS YOUR GUESST125 

BLACK BLACK WHITE 

WHAT IS YOUR GUESS? 1245 

VERY GGOD» YOU GOT THE NUMBER IN 4 GUESSES. 



ATTENTION PERSON 2 r I AM PICKING THE NUMBER. 



WHAT IS YOUR GUESS?1234 
BLACK BLACK BLACK 
WHAT IS YOUR GUESS?1245 
WHITE BLACK BLACK BLACK 
WHAT IS YOUR GUESST5124 
BLACK BLACK BLACK BLACK 
WHAT IS YOUR GUESS?2415 

VERY GOOD* YOU GOT THE NUMBER IN 4 GUESSES. 



AT THE ENB OF ROUND 1 
PERSON TOTAL 



1 



4 
4 



VERAGE 


CATEGORY 


4 


EXCELLENT 


4 


EXCELLENT 



ANOTHER ROUND? (1=YES>?0 



READY . 



aQQQQaaQQQ 

^THBB^B ^■I^MBM ^iKKI^^^m ^^^^^« ^^^^^m ^^^^^m ^^^^^v ^^^^^n ^^^^^b* ■■■b*""™ 



Program listing 



BOGGLE 



100 DIM T<10), SC4),CCG), ZC2, 4>, KC4) 

110 CLS 

120 PRINT "THIS IS THE GAME OF MIND BOGGLER. ": PRINT." PRINT 

130 PRINT "DO YOU WONT INSTRUCTIONS "5 5 INPUT ft* 

135 IF fl*="YES" THEN PRINTsGOTO 145 

140 PRINT: IF fl*="Y" THEN 145 ELSE 3E0 
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145 CLS 

150 PRINT "I AM GOIING TO PICK A NUMBER BETWEEN 0000 - 5555." 

1B0 PRINT "YOU ORE TO TRY TO GET THAT NUMBER IN THE MINIMAL" 

170 PRINT "AMOUNT OF GUESSES. " : PRINT 

180 PRINT "EVERY TIME YOU GUESS A NUMBER I WILL GIVE YOU CLUES AS TO" 

130 PRINT "HOW CLOSE YOU ARE TO THE NUMBER I GUESSED. THE CLUES WILL" 

200 PRINT "BE 'BLACK' AND/OR 'WHITE'." 

205 PRINT "IF I SAY 'BLACK', THEN THAT MEANS THAT ONE OF THE DIGITS" 

210 PRINT "IS INCORRECT BUT NOT IN THE RIGHT ORDER. IF I SAY" 

220 PRINT "'WHITE' THEN YOU HAVE A CORRECT DIGIT IN THE CORRECT ORDER. IT" 

230 PRINT "IS UP TO YOU TO LOGICALLY FIGURE WHAT NUMBERS ARE CORRECT." 

235 PRINT: PRINT "HIT -ENTER- TO CONTINUE. ..";: INPUT W 

237 CLS 

240 PRINTsPRINT "FOR EXAMPLE: THE NUMBER IS 5210":PRINT 

250 PRINT "YOU GUESS: 2413": PRINT 

2S0 PRINT "YOU WOULD GET A 'BLACK' BECAUSE THE NUMBER" 

2E5 PRINT "2 IS CORRECT BUT IN THE WRONG ORDER AND" 

270 PRINT "A 'WHITE' BECAUSE YOU GUESSED THE NUMBER 1 WHICH WAS" 

2S0 PRINT "THE CORRECT NUMBER IN THE CORRECT ORDER." 

290 PRINT:PRINT "HIT -ENTER- TO CONTINUE. . ."?: INPUT W 

295 CLS 

300 PRINT "THERE ARE TWO VERSIONS TO THIS GAME. THE BEGINNERS VERSION" 

310 PRINT "WILL NOT HAVE THE SAME DIGIT USED TWICE IN THE NUMBER. THE" 

320 PRINT "EXPERTS ON THE OTHER HAND CAN HAVE AS MANY AS FOUR OF THE" 

330 PRINT "DIGITS THE SAME. ":PRINT 

340 PRINT "ONE OF TEN PEOPLE CAN PLAY. TRY TO SEE WHO CAN DO THE BEST. " 

350 PRINT: PRINT "********** GOOD LUCK **********" 

360 PRINTsPRINT "ARE YOU AN EXPERT (TYPE E) OR A BEGINNER (TYPE B)"i 

370 INPUT A9*:PRINT:PRINT 

380 PRINT:PRINT "HOW MANY WISH TO PLAY";: INPUT Q 

390 IF Q> 10 THEN 380 ELSE IF Q<1 THEN 380 

400 FOR P=l TO Q 

410 PRINT:PRINT 

420 PRINT "ATTENTION PERSON"P", I AM PICKING A NUMBER. ": PRINT 

430 FOR 1=1 TO E:C(I)=0:NEXT I 

440 N=0:FOR 1=1 TO 4 

450 Nl=INTC5*RND<0))+l:IF A9*="E" THEN 470 

460 IF C(Nl+l)=i THEN 450 ELSE C(N1+1>=1 

470 N=N+CNl*<10-t-<: 1-1))); NEXT I 

480 N1=N:T5=0 

490 T1=INTCN/1000):N=N-T1+1000 

500 H1=INT<N/100):N=N-H1*100 

510 E1=INT(N/10):N=N-E1*10 

515 N=INTCN) :N1=INTCN1) 

520 ZC1, i:>=Tl:ZCl,2>=Hl:Z<:i,3)=El:Zc:i,4)=N 

530 PRINT: IF T5=25 THEN PRINT ELSE 550 

540 PRINT "TOO MANY TRIES, THE NUMBER IS "Nl sGOTO 720 

550 PRINT "WHAT IS YOUR GUESS" ?: INPUT G 

5E0 T5=T5+l:Gl=G 

570 FOR 1=1 TO 4:S(I>=0:KCI)=0:NEXT I:X1=0 

580 T=INTCG/1000) :G=G-T*1000 

590 H=INTCG/100) :G=G-H*100 

600 E= I NT C G/ 1 ) : G=G-E* 1 

E10 ZC2, 1>=T:ZC2, 2)=H:ZC2, 3)=E:ZC2, 4)=G 

620 IF G1=N1 THEN 710 

E30 X=INTC4+RNDC0))+l:lF S(X)=1 THEN 630 ELSE. S<:X> = 1 

E40 FOR L=l TO 4: IF Z C2, X)=ZC 1 , L) THEN 650 ELSE 700 

650 IF K(L)=1 THEN 700 

660 IFX=L THEN 670 ELSE 680 

670 PRINT "WHITE ";:GOTO 690 

680 PRINT "BLACK "; 

630 REM 

700 NEXT L:Xi=Xl+l:IF Xl=4 THEN 530 ELSE 630 

710 PRINT:PRINT "VERY GOOD, YOU GOT THE NUMBER IN"T5"GUESSES. " 

720 PRINT:PRINT:TCP)=T<:P)+T5:NEXT P:R=R+1 

730 PRINTsPRINT "AT THE END OF ROUND" R: PRINT 
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740 PRINT "PERSON", "TOTAL'S "AVERAGE'S "CATEGORY" 

750 PRINTsFOR 1=1 TO Q 

7G0 PRINT I, TCI), 3T3=IIMTCCTa)/R)*i00)/i00!PRINT T9, 

770 GOSUB S30 

7S0 NEXT I 

790 PRINT: PRINT: PRINT 

300 PRINT "ANOTHER ROUND" ;: INPUT M* 

S05 IF M*="YES" THEN 400 

810 PRINT:PRINT:IF M*="Y" THEN 400 

S20 PR I NT: GOTO 910 

S30 REM 

340 IF T5<5 THEN PRINT "EXPERT" : RETURN 

350 IF T5<9 THEN PRINT "EXCELLENT" : RETURN 

360 IF T5<13 THEN PRINT "GOOD" :RETURN 

870 IF T5<1G THEN PRINT "FAIR" : RETURN 

330 IF T5<21 THEN PRINT "POOR" : RETURN 

390 IF T5<25 THEN PRINT "BAD" : RETURN 

900 PRINT "KEEP PRACTICING" : RETURN 

910 END 
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Description 

in this game of chance up to 5 persons can be involved. Each person 
takes a turn as a revolver chamber clicks off. If a bullet goes off with a 
Bang!!, the unlucky person is eliminated. The game ends when only 1 
person is left! 



Variable list 

A( ) = If this flag is 1 , then that person has been previously shot 

D = Number of people shot 

E = Round number 

I = Person's number being processed 

Y = Probability of not being shot 

Z = Probability of being shot (based upon how many people have 
previously pulled the trigger in the current round) 



Sample run 

THIS IS A RUSSIAN ROULETTE GAME. 

GAME WILL END WHEN ONLY ONE PERSON IS LEFT! 
GOOD LUCK! ! ! ! (YOU'LL NEED IT! > 
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HOW MANY WISH TO PLAY?3 

NUMBER YOURSELVES FROM 1 TO 3 . 



ROUND 1 
PERSON 1 


GAME 1 
CLICK 


PERSON 2 


CLICK 


PERSON 3 


CLICK- 


ROUND 2 


GAME 1 


PERSON 1 


BANG ! ! ! 


PERSON 1 


YOU ARE DEAD! 


THE REST 


OF YOU WILL CONTINUE! 


ROUND 1 


GAME 2 


PERSON 2 


CLICK 


PERSON 3 


CLICK 


ROUND 2 


GAME 2 


PERSON 2 


CLICK- 


PERSON 3 


CLICK 


ROUND 3 


GAME 2 


PERSON 2 


BANG! ! ! 



PERSON 2 YOU ARE DEAD! 

PERSON 3 YOU HAVE WON AND MAY WALK AWAY 
ALIVE AND FREE ! ! ! 



READY, 



QQQQQQQQQQ 



Program listing 

BULLET 

30 CLS 

100 PRINT:PRINT 

110 DIM 0(100) 

120 PRINT "THIS IS Pi RUSSIAN ROULETTE GAME. " : PRINT 

130 PRINT 

140 PRINT "GOME WILL END WHEN ONLY ONE PERSON IS LEFT 1 " 

150 PRINT:PRINT "GOOD LUCK!! 11 (YOU'LL NEED IT!)" 

160 PRINT :PRINT "HOW MANY WISH TO PLOY";: INPUT 

170 PRINT:PRINT "NUMBER YOURSELVES FROM 1 TO"fi; ".": PRINT : PRINT 
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175 INPUT "HIT ENTER WHEN READY. . .";M* 

176 FOR F=1TO500:NEXT F 

177 CLS 

ISO PRINT:G=1:D=0 
130 E=l 
.135 CLS 

200 PRINT:PRINT "ROUND"E, "GAME"G: PRINT 
210 FOR I = 1T0 Pi 
220 IF A<I)=1 THEN 230 
230 PRINT "PERSON"; I, 
240 Z=A-D+1:IF Z>=6 THEN 250:Z=S 
250 P=INT<:Z*RNDCX:>> + 1 

2E0 Y=a/I)*RND(X):IF Y<l/E THEN 270:Y=1/E 
270 IF (1/P)+Y<=E/Z THEN 295 
230 PRINT "CLICK" 
2S5 FOR F=1TQ 500:NEXT F 
230 NEXT I:E=E+l:GOTU 195 
235 FOR F=1TO500:NEXT F 
300 PRINT "BONG! !!": PRINT: PRINT "PERSON" I "YOU ARE DEAD !": PRINT 

310 o<:i) = i 

320 D=D+l:IF D>=fl-1 THEN 340 

330 PRINT "THE REST OF YOU WILL CONTINUE !": G=G+1 : PRINT 

335 FOR F=1TO1000: NEXT F 

337 GOTO 190 

340 FOR X=l TO A: IF fi(X)=0 THEN 350 

345 NEXT X 

350 PRINT "PERSON" X" YOU HOVE WON AND MAY WALK AWAY" 

360 PRINT "ALIVE AND FREE ! I !": PRINT: PRINT 

365 STOP 

370 END 
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Description 

By using the biorhythmic cycle theory (see BIORHYTHM game), this 
program takes the birthdays of two individuals and calculates when 
they are compatible during their lifetime. It also gives the average com- 
patibility percentage. For example, the computer adds the physical 
cycle compatibility (23-day) percentage, the sensitivity cycle compat- 
ibility (28-day) percentage, and finally the cognitive cycle compatibility 
(33-day) percentage in order to give a total percentage of the 3 bio- 
rhythmic compatibility cycles. Then, to obtain an average of this, the 
total is divided by 3. 

Two individuals will have an average compatibility of 100% only if 
they were born on the same day or if they were born 21 ,252 days apart 
or 59.86 years. Couples, therefore, should not feel insulted if their aver- 
age is not 1 00%. 



Variable list 

A( ) = Number of days past in year up to month 
A1 ( ) = Name of person one 
B1 ( ) = Name of person two 
C3 = Remainder of P2/33 (cognitive) 
D3 = Remainder of P2/23 (physical) 
El, F1, G1 = Person one's birthday (month, day, year) 
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E2, D2, G2 = Person two's birthday (month, day, year) 

P2 = Difference of days between person one's birthday and 

person two's birthday 
S3 = Remainder of P2/28 (sensitivity) 



Sample run 

WHAT IS THE NAME OF PERSON ONE? JOHN H. DOE 

WHAT IS PERSON ONE'S BIRTHDAY? <MM»DD» YYYY)?5, 1 ? 1954 

WHAT IS THE NAME OF PERSON TWO? MARY D. DOE 

WHAT IS PERSON TWO'S BIRTHDAY? ( MM , DD t YYYY )?12»21 » 1955 



COMPATABILITY ANALYSIS 

COMPATIBILITY ANALYSIS OF JOHN H. DOE AND MARY D. DOE. 

JOHN H. DOE WAS BORN ON MAY 1 » 1954 . IT WAS A SATURDAY. 

MARY D. DOE WAS BORN ON DECEMBER 21 , 1955 . IT WAS A WEDNESDAY. 



PHYSICAL CYCLE COMPATABILITY (23-DAY) IS 100 % 

SENSITIVITY CYCLE COMPATABILITY (28-DAY) IS 28.571 X 

COGNITIVE CYCLE COMPATABILITY (33-DAY) IS 69,696 X 

AVERAGE COMPATABILITY IS 66.089 % 



READY. 



QaQQQQQQQQ 
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Program listing 
COMPAT 



100 
110 
120 
130 
140 
150 
155 
190 
200 
210 
220 
230 
240 
250 
310 
320 
330 
340 
350 
360 
380 
3S5 
390 
400 
410 
420 
450 
470 
430 
490 
500 
510 
530 
540 
550 
560 
570 
590 
590 
600 
610 
620 
630 
640 
650 
660 
670 
630 
690 
700 
710 
720 
730 
740 
760 
770 
730 
790 
300 
810 
820 
330 
840 



INPUT W* 
CMM,DD, YYYY) ! 



DIM A1<:30),B1C30) 

DIM 0(12) 

FOR 1=1 TO 12: READ ACI):NEXT I 

DATA 0,31, 59, 90, 120, 151, 181,212,243,273,304, 334 

Y=0 

Y=Y+1 

CLS: PRINT "WHAT IS THE NAME OF PERSON ONE" 

PR INT: PR INT "WHAT IS PERSON ONE'S BIRTHDAY 

INPUT M, D, Y 

E1=M:F1=D:G1=Y 

GOSUB 770 

Z2-T:K1=J+1 

PRINT 

PRINT "WHAT IS THE NAME OF PERSON TWO" "INPUT X* 

PRINT: PRINT "WHAT IS PERSON TWO'S BIRTHDAY? (MM, DD, YYYY) 

INPUT M, D, Y 

E2=M:D2=D:G2=Y 

GOSUB 770 

P2-ABSCZ2-T) 

K2=J+1 

FOR 1=1 TO 6:PRINT:NEXT I 

CLS 

PRINT "COMPATABILITY ANALYSIS" 

PRINT " " 

PRINT 

PRINT "COMPATABILITY ANALYSIS OF ";W* 

PRINT 

PRINT W*?" WAS BORN ON ";: M=E1 : GOSUB 950 

PRINT Fl;",";Gl;". IT WAS A "?:J=K1 

GOSUB 1080 

PRINT ". " 

PRINT 

PRINT X*"" WAS BORN ON 



AND ";X$5". 



PRINT D2!" 

GOSUB 1080 

PRINT ". " 

PRINT 

Z=P2 

P3=ABSCINTCC 

S3=ABSCINTCC 

C3=ABSCINT<<: 

P5=ABSC100 

S5=ABSC100 

C5=ABSC100-< 



""G2-". IT WAS 



:M=E2: GOSUB 950 
A " ; : J=K2 



Z/23) 

Z/2S)-INTCZ/2S) 
Z/33)-INTCZ/33) 



INT C Z/23)) +23 
) *2S 



)+33) ) 



2+P3)*C 100/23) ) 

C2*S3)+<: 100/28) ) ) 

<! 2+C3 ) * C 1 00 / 33 ) ) ) 
PRINT "PHYSICAL CYCLE COMPATABILITY (23-DAY) IS 
PRINT INT(P5+1000)/1000;">'." 

PRINT "SENSITIVITY CYCLE COMPATABILITY (23-DAY) 
PRINT INT(S5*1000)/1000;"*" 

PRINT "COGNITIVE CYCLE COMPATABILITY (33-DAY) IS 
PRINT INTCC5*1000)/1000;"y." 

PRINT , , , " " 

PRINT "AVERAGE COMPATABILITY IS",," " ; 

A5=(P5+S5+C5)/3 

PRINT INT (A5+1000)/ 1000 ;"%" 

GOTO 760 

Y1=Y-1S00 

Ql=INTCYl/4) 

02= INT (Q 1/25) 

0.3= I NT CCY 1+200)/ 400) 

K=0 



IS 



IF Ql* 
IF 02+ 
IF 03* 



4<>Y1 THEN 360 
100 OY1 THEN 360 
400-200 OY1 THEN 



360 
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850 


K=l 




SG0 


T=365+Y 1 +G! 1 -Q2+Q3-I 


< 


S70 


t=t+r<:m>+d-i 




SS0 


IF M<3 THEN 300 




330 


T=T+K 




300 


IF INT(Yl/4> OY1/4 


THEN 330 


310 


IF M>2 THEM 930 




320 


T=T-1 




330 


J=T-7*INTCT/7) 




340 


RETURN 




350 


IF M=l THEN PRINT ' 


'JANUARY"; : RETURN 


360 


IF M=2 THEN PRINT ' 


■FEBRUARY"; : RETURN 


370 


IF M=3 THEN PRINT ' 


'MARCH"; : RETURN 


330 


IF M=4 THEN PRINT ' 


'APRIL"; : RETURN 


330 


IF M=5 THEN PRINT ' 


'MAY"; : RETURN 


1000 


IF M=G THEN PRINT 


"JUNE"; : RETURN 


1010 


IF M=7 THEN PRINT 


"JULY"; : RETURN 


1020 


IF M=S THEN PRINT 


"AUGUST";: RETURN 


1030 


IF M=3 THEN PRINT 


"SEPTEMBER"; : RETURN 


1040 


IF M=10 THEN PRINT 


' "OCTOBER";: RETURN 


1050 


IF M=ll THEN PRINT 


" "NOVEMBER"; : RETURN 


10G0 


PRINT "DECEMBER";: 


RETURN 


1070 


IF J=l THEN PRINT 


"WEDNESDAY";: RETURN 


1080 


IF J=2 THEN PRINT 


"THURSDAY"; : RETURN 


1030 


IF J=3 THEN PRINT 


"FRIDAY" "RETURN 


1100 


IF J=4 THEN PRINT 


"SATURDAY";: RETURN 


1110 


IF J=5 THEN PRINT 


"SUNDAY"; : RETURN 


1120 


IF J=G THEN PRINT 


"MONDAY"; : RETURN 


1130 


PRINT "TUESDAY"; : RETURN 


1140 


END 
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Description 

Enter today's date and another date. The computer will automatically 
tell you the day of the week that date fell on and the days apart from 
the day you are running it. 



Variable list 

D( ) = Days in each month 

J = Day number of date picked 

N( ) = Cumulative days past till current month 

T = Number of days difference between entered date and January 1 , 
1800 

V = Difference of days between entered date and today's date 

Y1 = Current year minus year 1800 

Z = Number of days difference between today's date and January 1 , 
1800 



Sample run 

DAY PREDICTION PROGRAM! 

ENTER A DATE AND THE COMPUTER WILL TELL YOU 
WHAT DAY IT WAS. ENTER A 0,0,0 TO STOP, 
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ENTER TODAY'S DATE? (MM , DDr YYYY ) ?2»29 , 1978 
PROGRAM CANNOT ACCEPT GIVEN DATE. RE-ENTER 
ENTER TODAY'S DATE? ( MM , DD» YYYY ) ?2r 1 f 1978 

ENTER DATE? (MM , DD, YYYY ) ?2» 1 t 1978 



FEBRUARY 1 , 1978 IS TODAY ? WHICH IS A WEDNESDAY. 



ENTER DATE? (MM»DD» YYYY)?12r 5> 1955 



DECEMBER 5 , 1955 OCCURRED 8094 DAYS AGO, ( 22.16 YEARS) 
AND WAS A MONDAY. 



ENTER DATE? ( MM , DD t YYYY ) ?0?0 »0 



READY. 



Program listing 



DATE BASIC-69 



100 DIM N(12),D(12) 

110 CLS:PRINT "DAY PREDICTION PROGRAM !": PRINT 

120 PRINT "ENTER A DATE AND THE COMPUTER WILL TELL YOU" 

130 PRINT "WHAT DAY IT WAS. ENTER A 0,0,0 TO STOP. ":PRINT 

140 PRINT:PRINT:PRINT 

150 FOR 1=1 TO 12 

1E0 READ NCI) 

170 READ DC I) 

1S0 NEXT I 

190 DATA 0,31,31,28,59,31,90,30,120,31,151,30,131 

200 DATA 31,212,31,243,30,273,31,304,30,334,31 
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210 
220 
230 
240 
250 
2G0 
270 
280 
290 
300 
310 
320 
330 
340 
350 
370 
3S0 
330 
400 
410 
420 
430 
440 
450 
460 
470 
4S0 
490 
500 
510 
520 
530 
540 
550 
560 
570 
5S0 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 



DATA 0,31,59, 
PRINT "ENTER 
M, D, Y 



90, 120, 151, 181,212,243,273. 
TODAY'S DATE (MM, DD, YYYY) ' 



'.04, : 



680 



"ENTER 
M, D, Y 
THEN 



INPUT 

W=0 

GOSUB 

Z=T 

PRINT 

PRINT 

INPUT 

IF MO0 

STOP 

W=l 

GOSUB 680 

V=T-Z 

PRINTsPRINT 

GOSUB 940: PRINT 

GNV/365. 2425 

q=int<:abscq>*i00+. 5 

IF V<0 THEN 460 
IF V=0 THEN 520 
PRINT "WILL OCCUR"; 
PRINT Q5 " YEARS)" 
PRINT "AND WILL BE" 
GOTO 490 



DATE (MM, DD, YYYY) " ; 

320 ELSE IF DOB THEN 320 ELSE IF YO0 THEN 320 



D; 



)/l00 



V?"DAYS FROM TODAY, C 



■OCCURRED" ;-V; "DAYS 
Q5 "YEARS)" 
"AND WAS"; 
" A ";:GOSUB 1060 



AGO, C 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOTO 900 

PRINT "IS TODAY, WHICH IS"; 

GOTO 490_ 

Y1=Y-1S00 

Ql=INT<Yl/4) 

Q2= I NT CO. 1/25) 

Q3=INTO:Yl+200)/400) 

K=0 

IF Q1+4 0Y1 THEN 630 

IF 02*100 OY1 THEN 620 

IF 03*400-200 OY1 THEN 630 

K=l 

T=365+Y1+G1-Q2+Q3-K 

T=T+NCM)+D-1 

IF M<3 THEN 800 

T=T+K 

GOTO 800 

GOSUB 820 . 

IF E=l THEN 770 

IF D<0 THEN 770 

IF D>31 THEN 770 

IF Y> 100 THEN 740 

Y=Y+1900 

IF Y<1S00 THEN 770 

IF Y>4999 THEN 770 

GOTO 540 \ 

PRINT=PRINT "PROGRAM CANNOT ACCEPT GIVEN DATE. RE-ENTER. 

IF W=0 THEN 220 

GOTO 270 

j=T-7+INT(T/7) 

RETURN 

E=l 

IF M<1 THEN 890 

IF M> 12 THEN S90 

K=0sIF Y/4<> INTCY/4) THEN 870 

K=l 

IF D>D(M)+K THEN 890 
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SS0 

890 

900 

930 

940 

950 

9G0 

970 

9S0 

990 

1000 

1010 

1020 

1030 

1040 

1050 

10B0 

1070 

10S0 

1090 

1100 

1110 

1120 

1130 



E=0 

RETURN 
PRINT 
GOTO 270 
IF M=l THEN 

11=2 

1*1=3 

M=4 

11=5 

M=G 
M=7 



IF 
IF 
IF 
IF 
IF 

IF 

IF 

IF 

IF 

IF 

PRINT 

IF J=0 
J=l 

J=3 
J=4 

J=5 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"JANUARY" ; 

"FEBRUARY' 



: RETURN 
5 : RETURN 



IF 
IF 
IF 
IF 
IF 



PRINT 
END 



"MARCH"; : RETURN 
"APRIL"; : RETURN 
"MAY" "RETURN 
"JUNE";: RETURN 
"JULY"; s RETURN 
M=S THEN PRINT "AUGUST" ; : RETURN 
M=9 THEN PRINT "SEPTEMBER" ;: RETURN 
M=10 THEN PRINT "OCTOBER" ;: RETURN 
M=ll THEN PRINT "NOVEMBER" ;: RETURN 
"DECEMBER" ; : RETURN 
THEN PRINT "WEDNESDAY. "; s RETURN 
THEN PRINT "THURSDAY. " ; : RETURN 
THEN PRINT "FRIDAY. ";: RETURN 
THEN PRINT "SATURDAY. "5 : RETURN 
THEN PRINT "SUNDAY. " ; : RETURN 
THEN PRINT "MONDAY. "; s RETURN 
'TUESDAY. "; : RETURN 
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Description 

This program simulates a dog race game. The prior racing experience of 
each dog (won/loss record) helps to determine the outcome of the race. 
From start to finish the dogs move up a little bit each as the game pro- 
gresses. All odds are calculated based on the amount of dollars bet on 
each dog. It is interesting to note that if you went to the track, the 
same odds would show up given the amounts bet on each dog. Good 
luck! 



Description of bets 

Win— Dog comes in first. 
Place— Dog comes in first or second. 
Show— Dog comes in first, second, or third. 

Perfecta— Pick the dog to come in first and a dog to come in second. 
If they finish in the order you picked them, you win. 

Note 

At normal parimutuel dog tracks, the track takes out 1 7% of the pool 
(total bets placed by the participants) for state taxes and track ex- 
penses. In the parimutuel betting system, those backing winners divide, 
in proportion to their wagers, the total amount bet, minus the percent- 
age for the track and taxes. The only time the track would lose money 
would be if the betting participants continuously placed heavy bets on 
the favorite and the favorite kept on winning. The computer game 
DOGS also takes out 1 1% when it calculates the odds for each race. 



Variable list 

A1 = Maximum wins for each dog in current race 
A2 = Maximum wins picked for each dog 
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Sample run 



A1 ( ) = Amount of money bet on each dog (for odds) 

B1 = Total amount bet in pool 

B2 = Maximum losses for each dog in current race 

B3 = Maximum losses picked for each dog 
B1 ( ) = Odds for each dog 
B9( ) = Amount of money for each player 

C8 = Maximum lengths for each race 

C9 = Length to travel in race 
C( ) = Maximum number of lengths each dog can travel 
C1 ( ) = Total lengths traveled by each dog in race 
C2( ) = Win, place, or show for dog picked by each player 
C9( ) = First dog in perfecta for each player 

D1 = Total amount bet in perfecta pool 
D9( ) = Second dog in perfecta for each player 
E9( ) = Perfecta bet for each player 

F9 = Accuracy of decimal in percentage 
J = Winning amount 
N( ) = Dog number picked by each player 

P9 = Amount winning a perfecta 

S1 ( ) = Bet by each player 

W( ) = W(1) is winning dog 
W(2) is placed dog 
W(3) is show dog 



WELCOME TO ROOK -A -DAY RACE TRACK!! 



RACE 1 IB LENGTHS 



DOG WINS 

1 2 

2 4 

3 3 

4 5 

5 9 

6 7 

7 8 

8 9 

9 2 

10 3 



THIS IS A DOG RACE GAME. 
PLEASE PLACE YOUR BETS. 
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.OSSES 


PERCENTAG 


1 


.666 


1 


.8 


1 


. 75 


1 


.833 


1 


.9 


1 


.875 


1 


.888 


1 


.9 


1 


.666 


1 


.75 



ENTER A ONE FOR WIN* 

A TWO FOR PLACE* 

OR A THREE FOR SHOW, 



HOW MANY WISH TO BET?2 

PERSON 1 ENTER YOUR D0GT7 

WIN, PLACE* OR SHOWT1 

YOUR BET?50 

HERE ARE YOUR 25 TICKETS. 

FIRST* SECOND DOG IN PERFECTA?7*8 

AND THE BETT20 

PERSON 2 ENTER YOUR D0G?8 

WIN* PLACE* OR SHOWT1 

YOUR BET?100 

HERE ARE YOUR 50 TICKETS. 

FIRST* SECOND DOG IN PERFECTA?8*7 

AND THE BETT100 



ALL BETS ARE CLOSED. 
ODDS BASED ON BETS. 



DOG 
1 
2 

3 
4 
5 
6 
7 
8 
9 
10 



ODDS 

or, t i 



•c'3 

35 
oo 



30 
15 
35 

7 : 1 
3 : 1 

8 : i 

13 ! 1 



123456789 10 
XXXXXXXXSTARTXXXXXXXX 
1 6 7 8 10 

4 5 9 
3 



AND THEY'RE OFF! ! 



XXXXXXXFINISHXXXXXXXX 
XXXXXXXXSTARTXXXXXXXX 
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7 8 



2 3 



39 



XXXXXXXFINISHXXXXXXXX 
XXXXXXXXSTARTXXXXXXXX 



10 

7 
3 4 5 8 

9 



XXXXXXXFINISHXXXXXXXX 
XXXXXXXXSTARTXXXXXXXX 



8 10 
3 4 7 



XXXXXXXFINISHXXXXXXXX 
XXXXXXXXSTARTXXXXXXXX 



1 

4 6 

7 

8 10 
3 5 



XXXXXXXFINISHXXXXXXXX 
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XXXXXXXXSTARTXXXXXXXX 



1 

4 



6 7 10 
8 



XXXXXXXFINISHXXXXXXXX 
XXXXXXXXSTARTXXXXXXXX 



7 8 
6 10 
XXXXXXXFINISHXXXXXXXX 
********************* 

PAYOFFS BASED ON ONE TICKET. 

DOG WIN 

9 18 



PLACE 


SHOW 


13.5 


9 


54 
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PERFECTA 9 » 2 PAYS * 182 



ANOTHER RACE?? (1 FOR YES)?0 



PERSON AMOUNT 

1 "70 

2 -200 
COMP 270 

READY. 



GGGGGGGGGG 
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Program listing 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2S0 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

425 



B9C12),C9C12), 

:), Aici0), w<:3> 



D9C12),E9C12) 



=INTCB3*RNDCX))+1 



DIM B1(10),C(10) 

DIM N(12),S1(12), 

DIM ClC10),C2Ci: 

C8=25 

1=12=7 : B3=4 

F9=1000sCLS 

PRINT TABC15) ; "WELCOME TO RQOK-A-DAY RACE TRACK!!" 

REM 

Al=INTCA2*RNDCX))+3sB2= 

C9=13 

M9=M9+1 

PRINT "RACE" ;M9, , C9; "LENGTHS" 

PRINTsPRINT "DOG", "WINS", "LOSSES" 

FOR 1=1 TO 10 

A9=INTCA1*RNDCX))+1 sB9=INTCB2*RNDCX) )+l 

CCI)=INTCCA9/CA9+B9)*F9)-.5)/100:IF CCIXC9/5 THEN 2E0 ELSE CCI)=C9/5 

PRINT I,A9, B9, INTC CA9/ CA9+B9) )*F9)/F9 

NEXT IsPRINTsPRINT "HIT -ENTER- TO CONTINUE. ..";: INPUT Z 

IF U9=l THEN 400 

CLS 

"THIS IS A DOG RACE GAME. 

"PLEASE PLACE YOUR BETS. ' 

PRINT "ENTER A ONE FOR WIN, 

"A TWO FOR PLACE, " 

"OR A THREE FOR SHOW. " 



"PERCENTAGE" 



'SPRINT 
iPRINT 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINTsPRINT "HOW MANY WISH TO BET"; 5 INPUT Q 

IF 0<=13 THEN 390 

PRINT "NO MORE THAN 13. ":GOTO 360 

U9=l 

FOR 1=1 TO Q 

PRINT "PERSON " ! 1 5 " ENTER YOUR DOG"; 

PRINT "WIN (TYPE W), PLACE (TYPE P) , 

IF K*="W" THEN C2CI)=1 ELSE IF K*="P 



INPUT 


NCI) 










OR SHOW 


CTYPE 


S)";: 


: INPUT 


K* 


THEN 


C2< 


(. I ) =2 


ELSE 


IF 


K*= 


= "S" 



THEN C2CI) 



430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

E00 

610 

620 

630 

540 

650 

E60 

670 

690 

700 

710 

720 

730 

740 
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PRINT "YOUR BET";: INPUT SI CI) 

PRINT "HERE ARE YOUR" ;S1 CI) /2; "TICKETS 

PRINT "FIRST, SECOND, DOG IN PERFECTA" 

PRINT "AND THE BET";:INPUT E9CI) 

PRINTSNEXT I 

D1=100:B1=200 

FOR 1 = 1 TO QsFOR 11 = 1 TO 10s IF NCI) Oil THEN 510 

Al C I 1 )=A1 C I 1 ) +S1 C I ) *C2< I ) 

NEXT IlsNEXT I 

FOR 1=1 TO Q:B1=B1+S1CI) :D1=D1+E9CI) sNEXT I 

FOR 1 = 1 TO 10 5 IF A1CI)>0 THEN 560 

B1CI)=INTCCB1/10)*RNDCX))+1 

GOTO 570 

Bl CI)=INTC CB1-A1 CI) )/CAl CD-C. 17*A1 CI) )) ) 



INPUT C9CI),D9CI) 



IF B1CI)>=2 
NEXT I 
PRINTsPRINT 
FOR Zl=l TO 
PRINT "ODDS 
PRINTsPRINT 
FOR 1=1 TO 



THEN 5S0:B1CI)=2 

"ALL BETS ARE CLOSED. 
4005NEXT ZlsCLS 
BASED ON BETS. " 
"DOG"," ODDS" 
10 

1 



PRINT I, Bl CI) 
NEXT I 

PRINTsPRINT "HIT -ENTER- 
PRINT TABC2);" 1 2 3 4 5 
FOR R=l TO 10 
W=0 

CI CR)=CCCR)*RNDCX)+i)+Cl CR) 
NEXT R 

PRINT " XXXXXXX START XXXXXXX 
FOR P=l TO C9 



TO START GAME. . . ' 
6 7 8 9 10", "AND 



;s INPUT ZsCLS 
THEY' RE OFF ! i ! " 



750 FDR R=l TO 10 

7G0 IF INTCCKR)) OP THEN 790 

770 PRINT TAB<R*2) ;R? 

730 NEXT RsPRINTsNEXT P 

300 PRINT " XXXXXX FINISH XXXXXXX" 

310 FOR P=l TO 10SIF C1CP:)<=C3 THEN 320 ELSE W=W+1 

320 NEXT P 

325 FOR Zl=l TO 500:NEXT Zl 

330 IF W<3 THEN CLS:GOTO E90 

340 PRINT " *********************" 

350 FOR R=l TO 3:H=-1 

360 FOR P=l TO 10 

370 IF Cl(P)>H THEN 390 

330 NEXT P:C1CJ)=-2:WCR)=J:NEXT R:GOTO 300 

390 J=P:H=C1CP) sGOTO SS0 

300 PRINTsPRINT "PAYOFFS BASED ON ONE TICKET." 

910 PRINT 

920 PRINT "DOG", "WIN", "PLACE", "SHOW" 

930 FOR 1 = 1 TO 10:Bl<:n=Bia:>*2+2:NEXT I 

940 print wen, Bi(:w<i):),Bi<:w(:i))-(:Bic:w(:i))/4),Bi(:w!:i))-(Bi(:wci))/2) 

950 PRINT W<2)," ",B1 CWC2) )-CBl CWC2) ) /4) , Bl CWC2) )-CBl CWC2) ) /2) 

9G0 PRINT WC3)," ", " ", BKWC3) )-<:Bl CWC3) ) /2> 

970 PRINTsPRINT 

930 PRINTsPRINT "PERFECTA " ;WC 1 ) 5 ", " ; WC2) 5 " PAYS'*"; 

990 DE=0 

1000 FOR 1=1 TO Q 

1010 IF C9CI)<>W(1) THEN 1040 

1020 IF D9CDOWC2) THEN 1040 

1030 D6=DE+1 

1040 NEXT is IF D6O0 THEN 1050 ELSE DE=1 

1050 P9=INTCCD1*. 33) /DE) 

10E0 PRINT P9 

1070 PRINTsPRINT 

1080 FOR 1=1 TO QSFOR 11=1 TO 3 

1090 IF NCDOWCIl) THEN 1100 ELSE IF C2(I)>=I1 THEN 1200 

1100 NEXT II 

1110 B9<I)=B9a)-Sia>:NEXT I 

1120 PRINT 

1130 FOR 1=1 TO QsIF C9C I) <> WC 1) THEN 1170 

1140 IF D9CI) OWC2) THEN 1170 

1150 PRINT "MR. "I"HAS WON THE PERFECTA. HE WINS *" 5 

11E0 PRINT P9-E9CI) 5B9Ci:)=B9CI)+P9-E9<:i) 

1170 B9m=B9a)-E9<I> sGOTO 1130 

1130 NEXT I 

1190 GOTO 1270 

1200 print "congratulations mr. "i" you've won *" ; 

1210 if c2<i)=1 then 1220 else if c2<:i)=2 then 1230 else k9=2:g0t0 1240 

1220 j=<:sic:i>/2)*bi<:w<ii:>)sgoto 1250 

1230 K9=4 

1240 j=csi <: 1 :> /2) *<:bi c w<: 1 1 ) )-<:bi cwc 1 1 ) ) /K9> > 

1250 PRINT j-si<:n 

12E0 Slt:i)=-CJ-SlCI)) sGOTO 1110 

1270 FOR 1=1 TO 10:Aia:>=0sCl<:i)=0sNEXT I 

1230 Wa)=0sWC2)=0 5W(3)=0sBl=0sDl=0 

1300 PRINT "ANOTHER RACE";: INPUT JS* 

1310 IF JS*="YES" THEN 170 ELSE IF JS*="Y" THEN 170 

1315 CLS 

1320 PRINTsPRINTsPRINT "PERSON", "AMOUNT" 

1330 FOR 1=1 TO Q 

1340 PRINT I,B9(I) 

1350 G9=G9-B9 C I ) 

13E0 NEXT I 

1370 PRINT "C0MP",G9 

1375 PRINT 

1330 END 
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date 




Description 

This program, when given any year, will find the date on which Easter 
will fall. Pass this one on to the Easter Bunny so he'll never be late! 



Variable list 

The variables used in this program are just the elements of a function 
used to determine the day Easter falls on. 

J = Year that was entered 
F = Day on which Easter falls 



Sample run 

THIS PROGRAM WHEN GIVEN A YEAR* WILL FIND 
THE DATE ON WHICH EASTER WILL FALL. 

INPUT THE YEARI'70 



EASTER FALLS ON MARCH 29 » 1970 



ANOTHER DATE? <1=YES)?1 
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INPUT THE YEAR?1975 

EASTER FALLS ON MARCH 30 , 1975 

ANOTHER DATE? (1=YES)?1 
INPUT THE YEART1980 

EASTER FALLS ON APRIL 6 , 1980 
ANOTHER DATE? <1=YES)?0 

QQQQQQQQQQ 

Program listing 
EASTER BASIC-69 



100 PRINT 

110 PRINT "THIS PROGRfiM.WHEN GIVEN ft YEAR, WILL FIND" 

120 PRINT "THE DOTE ON WHICH EASTER WILL FALL- " 

130 PRINT5PRINT "INPUT THE YEAR"? 

140 INPUT J 

150 IF J>99 THEN 170 

160 J=J+19S30 

170 PRINT:PRINT:PRINT 

180 fl=J-INT<:j/19>*13 

190 B=J-INT<J/4}*4 

200 C=J-INTCJ/7)*7 

210 T= 19*0+24 

220 D= T- 1 NT (. T / 30 ) *30 

230 T=2*B+4*C+6*D+5 

240 E=T-INT<T/7)*7 

250 F=D+E-9 

260 IF F<0 THEN 290 

270 IF F> THEN 320" 

280 GOTO 180 

290 F=F+31 

300 PRINT "EfiSTER FfiLLS OM MflROTF", " J 

310 GOTO 410 

320 IF F=2E THEN 370 

330 IF F<>25 THEN 350 

340 IF D=2S THEN 390 

350 PRINT "EfiSTER Ffii_LS ON PlPRIL"F","J 

360 GOTO 410 

370 PRINT "EfiSTER FfiLLS ON APRIL IS, "J 

380 GOTO 410 

390 PRINT "EfiSTER FfiLLS ON fiPRIL 18, "J 

400 GOTO 410 

410 PRINT:PRINT=PRINT 

420 PRINT "fiNDTHER DfiTE? (1=YES)"; 

430 INPUT ft 

440 IF fl=l THEM 130 

450 END 
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Description 

The computer game positions you, the player, against 5 enemy at- 
tackers. The object of the game is to destroy your attackers before you 
are destroyed. 

The attackers can be destroyed if they hit a mine or a tank. The 
tank is a sixth attacker. It works both for you and the enemy attacker. 
The tank destroys everything it touches. It can eliminate mines, the at- 
tackers, and you\ The tank should be used to your advantage and 
maneuvered into your attackers. Be careful: If it touches you, you lose 
the battle. 

You, as the player, are given 10 directions to move in the mined 
area. Moves 1 through 8 lead you in the directions displayed in the 
sample run. A move of "0" leaves you where you are in the area, and 
a move of 9 puts you randomly anywhere in the mined field, even on a 
mine. A move of 9 should only be used when you feel an absolute hit 
on an attacker is imminent. Remember, you can only use move 9 twice 
and you can be destroyed by hitting any mine (X) in the field, as well 
as in the perimeter. 

Note 

If 2 attackers move into each other, they are put somewhere else ran- 
domly in the mine field. Also, once a mine is destroyed it cannot ap- 
pear again. 
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Variable list 

A8 = Vertical board size 

A9 = Horizontal board size 

A( ) = Position of board layout 

A( ) = 5 represents the mines 

A( ) = 10 represents player 

A( ) = 15 represents the attackers 

A( ) = 20 represents nothing in that spot (spaces) 

A( ) = 25 represents the tank 

B( ) - Represents coordinates of the attacks 
B( ,1) = coordinates of tank 
B( ,2-5) = coordinates of attacks 

H = Random vertical position 
I = Random horizontal position 

J = Current vertical position of player 

K = Current horizontal position of player 

M = Horizontal position of an object 
N2 = Number of times option nine may be used by player 
N3 = Number of attacks destroyed 

V = Vertical position of an object 

W = Horizontal position of an object 
X = New vertical position of attacker 

Y = Move option of player 



Sample run 

YOU ARE THE ('*'). THE ATTACKERS ARE THE ('$'). 
THE MINES ARE <'X'). THE TANK IS <'8'). 

MOVES ARE? 4,3,2 

5t*rl 
6,7,8 

A MOVE OF '9' WILL PUT YOU ANYWHERE. (2 CHANCES) 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X XX 

X X $X X 8X 

XXX X 

X * * x X 

X X * X X 

X XXX 

X x 

X XX X 

XX X 

X X 

X * X X X X 

X X 

x x$ X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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YOUR MQVET8 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X XX 

X XX XX 

X X * X 8 X 

X XX 

X X * * X X 

X * X XX 

X X 

X XX X 

XX X 

X $ X 

X X X X X 

X * X 

XXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR M0VE?8 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X XX 

X XX XX 

XXX x 

X * X 8 X 

XX X X 

X * X * X X 

X * X 

X XX X 

X X * X 

X X 

X * X X X X 

X x 

XXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR MOVE?? 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



X X $ X 8 X 

X XX 

X X * * X X 
X XXX 

X X 

X * XX X 

XX X 

X * x 

X X X X X 

X X 

XXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR M0VE?4 

***** ZAP ! ! YOU KILLED ONE, 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X * X X 

X X X 8 X 

XXX X 

X * * XX 

XX X X 

X XXX 

X * X 

X XX X 

XX* X 

X X 

X X X X X 

X X 

XXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR M0VE?7 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X XX 

X X * X8 X 
X X $ * X X 

X XX 

XX X X 

X * X XX 

X X 

X *X X X 

XX X 

X X 

X X X X X 

X X 

XXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR M0VE?4 

TWO ATTACKERS HAUE COLLIDED. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



X 








* 




X 


% 




X 


X 




X 




* 






X 




X 


X 


X 








X 








X 


X 














X 




X 


X 


X 




* 






X 






X 


X 








X 






X 




X 


X 








* 










X 


X 










X 


X 






X 


X 


X 
















X 


X 


















X 


X 










X 




X 


X 


X 


X 
















$ 


X 


X 








X 










X 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
YOUR M0VE?9 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X XX 

XX 8X X 

XX * X X 

X XX 

XX X X 

X *X XX 

X X 

X $X X X 

XX X 

X X 

X X X X X 

X X 

X X * $ X 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR M0VE71 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



X $ X X 

XX X X 

X XXX 

X $ X 

X XX X 

XX * X 

X X 

X X X X X 

X X 

X X * * X 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR MOVE?0 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X XX 

XX XX 

XXX X 

X XXX 

XX * X X 

X XXX 

X X 

X * X X X 

XX X 

X $ X 

X X X X X 

X X 

X X * * X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR M0VET3 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X 


X 




X 


X x 




X 


X 


X x 


X 




X 


X 




X 


X 


X X 


& 




X 


X 


X * 


X 


X 


X 






X 


X 


X X 




X 


X X 


$ 




X 


X 






X 


X 


X* 


X 


X X 


X 


* 


$ 


X 


X 


X 




X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


YOUR M0VET8 








XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 


X 




X 


X x 




X 


X 


X x 


X 




X 


X 




X 


X 


X X 






X 


X 


X 8 


X 


X 


X 


% 




X 


X 


X X 




X 


X X 






X 


X 


$ 




X 


X 


X 


X 


X X 


X 


$ 




X 


X 


X * 


* 


X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


YOUR MOVETO 









***** ZAP ! ! — - YOU KILLED ONE. 

***** ZAP ! ! YOU KILLED ONE. 

*** YOU'VE BEEN DESTROYED BY A LUCKY COMPUTER *** 

READY. 



QQQQQQQQQQ 



Program listing 



100 
110 
120 
130 
140 
150 
1G0 
170 
1S0 
190 
200 
210 



DIM A<15, 30) 
AB=15sA9=30 

CLS 



BC2, E) 



"YOU ARE THE ('*'). THE ATTACKERS ORE THE C'*')." 
"THE MINES ARE THE C'X'). THE TANK IS C &■')." 
PRINT "MOVES ARES", "4, 3, 2" 

SPRINT , "6,7, 8" SPRINT 

OF '9' WILL PUT YOU ANYWHERE. C2 CHANCES). 

FOR C=l TO A9SACB, C)=205X=INTCA9*RND(0)) 

100 ELSE ACB, C)=5 

N3=0 

IS THE NUMBER OF TIMES MOVE 9 CAM BE USED 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FOR B=l TO AS 

IF X<>5 THEN 

NEXT CsNEXT B 

N2=2sREM THIS 



, "5,*, 1 
"0 MOVE 
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220 FOR D=l TO A9: A< 1, D>=5: ACAS, D>=5: NEXT D 

230 FOR D=l TO AS : ACD, 1 )=5: A<D, A9>=5: NEXT D 

240 GOTO 270 

250 H=INT(ftB*RND<0))+i:I=INTCG9*RND<0)>+l 

2B0 IF ACH, DO 20 THEN 250 ELSE RETURN 

270 FOR D=l TO 7:G0SUB 250 

275 ACH, I) = 15:IF DO 7 THEN 290 

2S0 fl(H, I)=10SJ=H:K=I:GOTO 310 

290 IF DOl THEN 300 ELSE ACH, I) =25 

300 B(1,D)=H:B(2.D)=I 

310 NEXT D 

320 PRINT:FOR D2=l TO AS: FOR B2=l TO 09 

330 IF ACD2, B2)=10 THEN 370 ELSE IF ACD2, B2> =15 THEN 3S0 

340 IF ACD2, B2)=5 THEN 3E0 ELSE IF ACD2, B2>=25 THEN 390 

350 PRINT " "; sGOTO 400 

3E0 PRINT "X";:G0T0 400 

370 PRINT "*"?:GOTO 400 

380 PRINT "*"",:GDTO 400 

390 PRINT "&"; 

400 NEXT B25PRINT:NEXT D2 

410 PRINT "YOUR MOVE";: INPUT Y:CLS:IF Y=0 THEN 520 

420 V=J:W=K:IF Y<9 THEN 440 ELSE IF N2O0 THEN 490 

430 PRINT "ILLEGAL MOVE. ":Q0TO 410 

440 IF YOl THEN 450 ELSE J=0:GOTO 4E0 

450 J=SGNCY-5) 

460 IF Y>3 THEN 4S0 ELSE IF Y=3 THEN 470 ELSE K=l : GOTO 510 

470 K=0:GOTO 510 

480 K=SGNCY-7) :GOTO 510 

490 GOSUB 250 

495 OCJ, K)=20:ft(H, I)=10 

500 J=H:K=I:N2=N2-l:G0T0 520 

510 K=K+W:J=J+V 

520 PRINT: IF ACJ, K>=5 THEN 750 ELSE A<V,W>=20 

530 AC J, K)=10:GOTO 700 

540 IF X<>99 THEN 550 ELSE RETURN 

550 V=X:M=Y:X=SGN<J-X) :Y=SGNCK-Y) : X=X+V: Y=Y+M 

5S0 IF fiCX,Y:> = 10 THEN E90 ELSE IF fiCX,Y)=20 THEN ES0 

570 IF A<V, M)=25 THEN E40 

5S0 IF FKX,Y:>Oi5 THEN 610 ELSE GOSUB 250 

585 X=I:Y=M 

590 PRINT "TWO ATTACKERS HAVE COLLIDED. " 

600 ACV, M)=20:A<:X,Y)=15: RETURN 

610 A<!V, M)=20:IF A(X,Y)=25 THEN 620 ELSE ACX,Y)=20 

620 GOSUB 630 

r-'"*5 X = S9 s RETURN 

630 PRINT "***** ZAP ! ! YOU KILLED ONE. " :N3=N3+1 : RETURN 

640 IF ACX, YK>15 THEN 680 ELSE M9-2 

650 IF BCl,M9)OX THEN 560 ELSE IF BC2,M9:i=Y THEN 670 

660 M9=M9+l:G0T0 650 

670 Bc:i,M9)=99:G0SUB 630 

580 ACX, Y)=A(V, M) :ACV, M)=20: RETURN 

690 PRINT "*** YOU'VE BEEN DESTROYED BY A LUCKY COMPUTER **+":G0T0 770 

700 FOR D=l TO 6:X=BC1,D) :Y=B<2, D):GOSUB 540 

710 BC1,D)=X:BC2,D)=Y:NEXT D 

720 IF N3<>5 THEN 320 

730 PRINTsPRINT "YOU'VE DESTROYED ALL YOUR OPPONENTS - YOU WIN !" 

740 GOTO 770 

750 PRINTsPRINT "YOU TOUCHED A MINE !!!!!!!" 

760 PRINT "***** ZAP ***** YOU'RE DEAD !!" 

770 END 
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sow 

PSDQ 

fltefo 




Description 

This game is based on the card game of Fish. You play against the com- 
puter 1 on 1. The object in piay is to form books. A book is any 4-of-a- 
kind set of cards, such as 4 Kings, Queens, Jacks, etc. On getting the 
fourth card of a book, the player shows ail 4, announces he has a book, 
lays the book down, and plays again. Cards are obtained by asking the 
computer for certain cards by name; in turn the computer asks you for 
cards. If you do not have the cards asked for by the computer or if the 
computer does not have the cards you ask for, then you must go FISH. 
If the card you pick up from the deck is the card you asked for, then 
you get to continue with another turn. The game ends when the owner- 
ship of all 1 3 books (52 cards) has been decided. The one with the most 
books wins. 

Be careful— the computer is too smart for cheaters! 



Variable list 

A( ) = Flags the cards that the player has asked for so the computer 
can ask for those cards when it gets them 
B = Number of books that player has 
B1 = Number of books that computer has 
C = Number of cards in player's hand 
C1 = Number of cards in computer's hand 
C2 = Number of times player has cheated 
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C( ) = Cards in player's hand 
C1 ( ) = Cards in computer's hand 

D = Number of cards picked from deck 
D( ) = Contains shuffled deck 
N( ) = Number of cards player has of each kind 
N1 ( ) = Number of cards computer has of each kind 
R( ) = Number of times the computer has asked for a particular card 
V = Card number picked 



Sample run 

THIS IS A CARD GAME OF FISH. PLAY AS YOU WOULD 
NORMALLY, AS NO CHEATING IS ALLOWED!! NUMBERS 
ARE TO BE ENTERED WHEN SPECIFIED FOR INPUTS. 

ENTER A 1 FOR AN ACE, A 11 FOR A JACK 
A 12 FOR A QUEEN, AND A 13 FOR A KING. 

GOOD LUCK! ! 



DO YOU WANT TO GO FIRST (l=YES)TO 

THIS IS YOUR HAND t 6 7 JACK 5 8 

DO YOU HAVE ANY KINGS? <0=FISHr l=YES)TO 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING PORTA 

I HAVE 1 OF THEM. 

YOUR TURN. 

THIS IS YOUR HAND : A 7 JACK 5 8 6 
WHAT CARD (BY NUMBER) ARE YOU LOOKING F0RT7 

GO FISH. 

YOU FISHED A 3 . 

THIS IS YOUR HAND J 6 7 JACK 5 8 6 3 
DO YOU HAVE ANY 8 S? (0=FISH, 1=YES)?1 
HOW MANYT1 

THIS IS YOUR HAND J 6 7 JACK 5 6 3 
DO YOU HAVE ANY 9 S? (0=FISH, 1=YES>?0 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0RT9 

PLEASE DON'T CHEAT, IT'S NOT POLITE! 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0RT6 
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GO FISH. 

YOU FISHED A ACE. 

THIS IS YOUR HAND J 6 7 JACK 5 6 3 ACE 
DO YOU HAVE ANY 10 S? <0=FISHf 1=YES)?0 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING FORTS 

STOP CHEATING. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0RT9 

CHEATING AGAIN?? THREE TIMES IS BAD LUCKr WATCH IT! 
WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?6 

GO FISH. 

YOU FISHED WHAT YOU ASKED FOR! 

YOUR TURN. 

THIS IS YOUR HAND i 6 7 JACK 5 6 3 ACE 6 
WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?5 

GO FISH. 

YOU FISHED A 10 . 

THIS IS YOUR HAND : 6 7 JACK 5 6 3 ACE 6 10 
DO YOU HAVE ANY 2 S? (0=FISH, 1=YES)?0 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0RT3 

GO FISH. 

YOU FISHED A ACE. 

THIS IS YOUR HAND I 6 7 JACK 5 6 3 ACE 6 10 ACE 
DO YOU HAVE ANY 4 S? (0=FISHi- 1 = YES)?0 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING FORTS 

GO FISH. 

YOU FISHED A 7 . 



THIS IS YOUR HAND I 6 7 JACK 5 6 3 ACE 6 10 ACE 7 

DO YOU HAVE ANY JACKS? (0=FISHf 1=YES)?0 

I CAUGHT YOU A FOURTH TIME. ONCE MORE AND YOU'RE OUT! 

DO YOU HAVE ANY JACKS? (0=FISHr 1-YES)T1 

HOW MANYT1 

THIS IS YOUR HAND 16 7 5 6 3 ACE 6 10 ACE 7 
DO YOU HAVE ANY 2 ST (0=FISHr 1=YES)?1 
ENOUGH* ALREADY! FIVE TIMES IS TOO MUCH!! 



QQQQQQQQQO 
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Program listing 

FISH 

100 CLS 

110 PRINT "THIS IB ft CARD GOME OF FISH. PLftY AS YOU WOULD" 

120 PRINT "NORMALLY, AS NO CHEATING IS ALLOWED!! NUMBERS" 

130 PRINT "ORE TO BE ENTERED WHEN SPECIFIED FOR INPUTS. ": PRINT 

140 DIM CC35), Cl<:.35>,N<:i2>,Nia2),DC5i), RC12), AC12) 

150 PRINT"ENTER A ONE FOR AN ACE, A 11 FOR A JACK" : PRINT "A 12 FOR A"! 

1E0 PRINT " QUEEN, AND A 13 FOR A KING. " : PRINTS PRINT"GOOD LUCK! !" 

170 PRINTsPRINT 

130 FOR V=0 TO 12 s FOR 1=0 TO 3 

130 X=INT(RND<0>*52>:IF D<:X)<)0 THEN 190 ELSE DCX)=V 

200 NEXT I:NEXT V:PRINT "DO YOU WANT TO GO FIRST (1=YES)"5 

210 INPUT A: PRINTsPRINT 

220 FOR 1=1 TO 5: GOSUB -600: GOSUB E20:NEXT I 

230 IF fl=l THEN 450 

240 IF C1O0 THEN 270 ELSE PRINT "I RAN OUT OF CARDS, " ; 

250 IF D=52 THEN 260 ELSE PRINT "AND PICKED UP ONE":GOSUB S20:GOTO 270 

2S0 PRINT "BUT " ; : GOSUB S20:GOTO450 

270 FOR N=3 TO 1STEP-1 : FORV=0TO12: IF NlCV)ON THEN 230 

2S0 IF flCV)<>0 THEN 340 

230 NEXT VsNEXT N:L=333:F0R 1=0 TO 12: IF N1CI)=0 THEN 310 

300 IF RCI)>=L THEN 310 ELSE L=RCI> 

310 NEXT I: FOR N=3 TO 1 STEP- 1: FOR V=0 TO 12 

320 IFNl<:V)ON THEM 330 ELSE IF RCV)OL THEN 330 ELSE GOTO 340 

330 NEXT V:MEXT N 

340 Vl=V:GOSUB 370: V=W : RC V)=R< V)+l 

350 PRINT "DO YOU HAVE ANY";: GOSUB S40: PRINT "' S C0=FISH i=YES>"; 

360 INPUT A: IF A=0 THEN 420 

370 IF NCV)=0 THEN 330 

330 PRINT "HOW MANY";: INPUT N:IFN=NCV) THEN 400 

330 GOSUB 330: GOTO 350 

400 FOR 1 = 1 TO N:C1<:C1)=V:N1 CV> =N1 <V:>+1 :C1=C1+1 : NEXT I 

410 GOSUB 7E0: GOSUB G30: GOTO 240 

420 IF N<:V)<>0 THEN 390 

430 V1=V: GOSUB 620: IF D=52 THEN 450 ELSEIF DCD-DOV1 THEN 450 

440 PRINT "I FISHED WHAT I ASKED FOR!":GOTO 240 

450 PRINT:PRINT "YOUR TURN." 

460 IF COB THEN 500 ELSE PRINT "YOU RAN OUT OF CARDS, "; 

470 IF D=52 THEN 490 ELSE PRINT "AND PICKED A";:GOSUB600 

430 V=D(D-i:>: GOSUB 340:GOTO 500 

490 PRINT "BUT ";:GOSUB 600: GOTO 240 

500 GOSUB 970 

510 PRINT "WHAT CARD C BY NUMBER ) ARE LOOKING FOR";: INPUT V 
520 PRINT 

530 IF V<1 THEN 510 

540 IF VOl THEN 550 ELSE V=12: GOTO 1020 

550 IF VO10 THEN 560 ELSE V=S: GOTO 1020 

560 IF VOil THEN 570 ELSE V=3: GOTO 1020 

570 IF V<>12 THEN 530 ELSE V=10: GOTO 1020 

530 IF V<>13 THEN 530 ELSE V=ll: GOTO 1020 

590 V=V-2s GOTO 1020 

600 IF D=52 THEN 640 ELSE CCC)=D(D) :D=D+1 :F=0 

610 Nc:C<:C>>=N<:C<:C)} + l:C=C+l:GOSUB 650: RETURN 

620 IF D=52 THEN E40 ELSE CI (CI )=DCD) :D=D+1 

630 N1CC1 CCi:))=Nl !:ClCCl)) + l:Cl=Cl + l:GOSUB 6S0: RETURN 

640 PRINT "THERE ARE NO MORE CARDS LEFT TO PICK"! RETURN 

650 FOR V=0 TO 12: IF N<!V)<>4 THEN 670 ELSE GOSUB 760 

660 PRINT "YOU HAVE A BOOK OF";:GOSUB 840* PRINT '"S. ":B=B+1 

670 NEXT V:GOTO 710 

630 FORV=0TO12:IFN1CV) <>4 THEN 700 ELSE GOSUB 800 

630 PRINT "I HAVE A BOOK OF";:GOSUB 340: PRINT "' S. " :B1=B1+1 

700 NEXT V 
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710 IF D=52 THEN 720 ELSE RETURN 

720 IF C+C1=0 THEN 730 ELSE RETURN 

730 PRINT SPRINT "GOME'S OVER! !" :IF B<Bi THEN 750 

740 PRINT "YOU WON, " ;B"TO"Bl sGOTO 1100 

750 PRINT "I WON"Bl"TO"B sSTOP 

7E0 IF C<1 THEN 790 

7G5 FOR 1=0 TO C-l : IFCC I) <> V THEN 730 

770 FOR J=I TO C-2:CCJ)=C<J+l)sNEXT J:C=C-1: GOTO 7G0 

780 NEXT I 

730 NCV>=0:PKV:>=0sF=0: RETURN 

S00 IF CK1 THEN 830 

805 FOR 1=0 TO Cl-lsIF C1CDOV THEN 820 

310 FOR J=I TO C1-2:CK:J)=CK:J+1) sNEXTJ:C1=C1-1 =GOTO800 

320 NEXT I 

830 N1CV) =0 5 RETURN 

840 IFV>8 THEN 850 ELSE PRINT V+2;: RETURN 

850 IF V>9 THEN 850 ELSE PRINT " JOCK" ;: RETURN 

SG0 IF V> 10 THEN 370 ELSE PRINT " QUEEN" ; s RETURN 

870 IF V>11 THEN SS0 ELSE PRINT " KING" ;: RETURN 

880 PRINT " PICE"; : RETURN 

330 C2=C2+l:IF C2=l THEN 310 ELSE IF C2=2 THEN 320 ELSE IFC2=3 THEN 3~0 

300 IF C2=4 THEN 340 ELSE IF C2=5 THEN 950 

310 PRINT "PLEASE DON'T CHERT IT'S NOT POLITE !": RETURN 

320 PRINT "STOP CHEATING. " : RETURN 

330 PRINT "CHEATING AGAIN?? THREE TIMES IS BAD LUCK, WATCH IT!":RETURN 

340 PRINT "I CAUGHT YOU ft FORTH TIME. ONCE MORE AND YOU'RE OUT ! " : RETURN 

950 PRINT "ENOUGH ALREADY! FIVE TIMES IS TOO MUCH! !" 

960 GOTO 9G0 

970 IF F=0 THEN 9S0 ELSE PRINT: RETURN 

980 PRINT :PRINT "THIS IS YOUR HAND "::F=1 

990 IF COB THEN 1000 ELSE PRINT "EMPTY" ; : PRINT: RETURN 

1000 PRINT ": ";:FOR 1=0 TO C-l s V=CC I) sGOSUB S40:NEXT I 

1010 PRINT JRETURN 

1020 IFNCV)<>0 THEN 1030 ELSE GOSUB 890: GOTO 510 

1030 ACV)=l:IF N1CV)=0 THEN 1030 ELSE PRINT "I HAVE"N1<:V) "OF THEM." 

1040 FOR 1=1 TO N1CV) sCCC) =Vs C=C+1 : N( V) =NC V)+i : NEXT I 

1050 F=0 sGOSUB 800 sGOSUB G50:GOTO 450 

1050 PRINT "GO FISH. "sVl=VsGOSUB 500: IF D=52 THEN 240 

1070 IF D(D-1)=V1 THEN 1090 ELSE PRINT "YOU FISHED A"; 

1030 V=D CD-I) sGOSUB 840: PRINT ".":PRINT: GOTO 240 

1090 PRINT "YOU FISHED WHAT YOU ASKED FOR!" :GOTO 450 

1100 END 
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Description 

You play assisted by the computer in this simulated golf game. 

Every hole on a golf course falls into one of 3 categories: par 3, 
par 4, or par 5. With an allowance being made for 2 strokes (swing of 
the golf club) on each putting green (where the golf hole is located), 
par is the score that a top-notch golfer would be expected to make on 
each of the holes located throughout the golf course. Therefore, on a 
par 3 hole you are expected to hit the putting green in a single stroke 
off the tee (where the golf ball is initially hit) and take 2 putts. On a 
par 4 you are expected to reach the putting green in 2 strokes. And on 
a par 5, you should reach the green in 3 strokes. 

The total of all the different pars adds up to par for the entire course. 
Most courses have a total par of 72 consisting of 10 par 4s, 4 par 5s, 

and 4 par 3s. 

Some of the scoring terms used in golf and in this computer pro- 
gram are as follows: 

"Birdie"-! stroke less than par. 

"Eagle"-2 strokes less than par. 

"Double Eagle"- 3 strokes less than par. 

"Ace" or "Hole in One"-! stroke into the hole. 

"Bogey"— 1 stroke over par. 

"Double Bogey"-2 strokes over par. 

"Handicap"-The number of strokes over par in which your average 
game is played. For example, if your average is 85 over a par 72 course, 
then your handicap is 85 - 72 or 13. Thus, 13 strokes will be deleted 
from your total score in competition stroke-play. 
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Some of the terms used in golf and in the computer program are as 
follows: 

"Pin"-Golf hole. 

"Fairway"— The lane of grass between the tee and the green. Usu- 
ally the fairway will have obstacles such as water hazards, trees, rough, 
and sand traps. 

"Rough"— High grass. 

"Sand Trap/Bunker"— A shallow pit of sand. 

"Water Hazard"— A pond of water. 

Before the computer game starts, the length of each hole and par 
are given to you at the start of each hole. The clubs are chosen accord- 
ing to the yardage desired. Your putting stroke is measured by a putt 
potency given by the computer. Be cautious— there are trees, rough, 
sand traps, and water hazards. The computer is nice to you, however; 
it gives you your handicap! 



Program notes 

Line 1290-1310 has a set of DATA statements. The numbers in the 
DATA statement are in groups of 4, each group describing the terrain 
and description for its respective hole. For example: 

1290 DATA A,B,C,D,A,B ; C,D, 

where A is distance, 

B is par for the course, 

C is the description of the terrain to the right, and 
D is the description of the terrain to the left. 
The descriptions are as follows. If the values of C or D are: 

FAIRWAY" 

ROUGH" 

TREES" 

ADJACENT FAIRWAY" 

TRAP" 



1. 
2. 
3. 
4. 
5. 
6. 



THEN THE COMPUTER PRINTS 
THEN THE COMPUTER PRINTS 
THEN THE COMPUTER PRINTS 
THEN THE COMPUTER PRINTS 
THEN THE COMPUTER PRINTS 



THEN THE COMPUTER PRINTS 



WATER' 



Variable list 

C = Club number picked by player 

D = Distance from tee to hole 
D1 = Yards ball traveled 
D2 = Distance of ball from cup 

F = Current hole number 
G1 - Number of holes for current game 
G2 = Total shots for course by player 
G3 = Total par for course 

H = Handicap of player 

j = Number of penalty strokes assessed 
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L( ) = Contains location of obstructions for current hole 
N = Percent of a shot being dubbed in a trap 
O = Number of yards ball is out of line with hole 
P = Par for hole 
Q = Percentage of shot going bad 

51 = Number of shots on current hole 

52 = Number of shots on hole 

W = Percent of swing for clubs 23-29 
Z9 = Putt potency number 



Sample run 



GOLF GAME. 



WHAT IS YOUR HAND I CAP? 10 

0=H00K, 1=SLICE» 2=DISTANCE, 4=TRAP SHOTS, STRUTTING 

WHICH ONE IS YOUR W0RST?4 



SELECTION OF CLUBS : 

YARDAGE DESIRED SUGGESTED CLUBS 

TO 100 29 TO 23 

100 TO 200 19 TO 13 

200 TO 280 4 TO 1 

PERCENT OF SWING ON CLUBS 23 TO 29 ARE .01 TO .99 
CHOOSE PUTT POTENCY BY DISTANCE TO HOLE. 
YOUR PUTT POTENCY MUST BE BETWEEN 1 AND 25 



YOU ARE AT HOLE 1 , DISTANCE 361 YARDS, PAR 4 
ON YOUR RIGHT IS ADJACENT FAIRWAY 
ON YOUR LEFT IS ROUGH 
PICK A CLUBT2 

YOU SLICED- BADLY. 

SHOT WENT 238 YARDS. IT'S 132 YARDS FROM THE CUP 
BALL IS 48 YARDS OFF LINE... IN ADJACENT FAIRWAY 
PICK A CLUBT18 

ON THE GREEN 36 FEET FROM THE PIN. 
PUTT POTENCY NUMBERT25 
YOU HOLED IT. 

SCORE ON HOLE 1 WAS 3 

TOTAL PAR FOR 1 HOLES IS 4 . YOUR TOTAL IS 3 . 
A BIRDIE. 



YOU ARE AT HOLE 2 , DISTANCE 389 YARDS, PAR 4 
ON YOUR RIGHT IS TREES 
ON YOUR LEFT IS TREES 
PICK A CLUB?1 
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YOU SLICED- SHOT WENT 230 YARDS. IT'S 162 YARDS FROM THE CUP 
BALL IS 33 YARDS OFF LINE... IN TREES 
PICK A CLUB? 15 

ON THE GREEN 42 FEET FROM THE PIN. 

PUTT POTENCY NUMBER?20 

PASSED BY CUP. 

ON THE GREEN 5 FEET FROM THE PIN. 

PUTT POTENCY NUMBER72 

YOU HOLED IT. 

SCORE ON HOLE 2 WAS 4 

TOTAL PAR FOR 2 HOLES IS 8 . YOUR TOTAL IS 7 . 
A PAR. NICE GOING. 



YOU ARE AT HOLE 3 » DISTANCE 206 YARDS r PAR 3 
ON YOUR RIGHT IS ADJACENT FAIRWAY 
ON YOUR LEFT IS ROUGH 
PICK A CLUB?4 

BALL HIT TREE - BOUNCED INTO ROUGH 131 YARDS FROM HOLE, 
PICK A CLUBT16 

YOU DUBBED IT. 

SHOT WENT 35 YARDS. IT'S 96 YARDS FROM THE CUP. 

BALL. IS 4 YARDS OFF LINE... IN FAIRWAY 

PICK A CLUB? 19 

BALL HIT TREE - BOUNCED INTO ROUGH 21 YARDS FROM HOLE. 
PICK A CLUB?29 

PERCENT FULL SWING?. 2 

ON THE GREEN 3 FEET FROM THE PIN. 
PUTT POTENCY NUMBER?2 
YOU HOLED IT. 

SCORE ON HOLE 3 WAS 5 

TOTAL PAR FOR 3 HOLES IS 11 . YOUR TOTAL IS 12 . 



YOU ARE AT HOLE 4 , DISTANCE 500 YARDS r PAR 5 
ON YOUR RIGHT IS OUT OF BOUNDS 
ON YOUR LEFT IS ROUGH 
PICK A CLUB?1 

YOU SLICED- SHOT WENT OUT OF BOUNDS. 
PENALTY STROKE ASSESSED. 
PICK A CLUB?1 

SHOT WENT 235 YARDS. IT'S 265 YARDS FROM THE CUP 
BALL IS 4 YARDS OFF LINE.... IN FAIRWAY 
PICK A CLUB?1 

SHOT WENT 238 YARDS. IT'S 52 YARDS FROM THE CUP. 
BALL IS 44 YARDS OFF LINE... IN FAIRWAY 
PICK A CLUB?28 

PERCENT FULL SWING?. 4 

ON THE GREEN 9 FEET FROM THE PIN. 
PUTT POTENCY NUMBER?5 
YOU HOLED IT. 
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SCORE ON HOLE 4 WAS 6 

TOTAL PAR FOR 4 HOLES IS 16 . YOUR TOTAL IS 18 . 



YOU ARE AT HOLE 5 , DISTANCE 408 YARDS.- PAR 4 

ON YOUR RIGHT IS ROUGH 

ON YOUR LEFT IS ADJACENT FAIRWAY 

PICK A CLUB? 



QQQQQQQQQQ 



Program listing 



100 CLS:PRINT "GOLF GAME. ": PRINT 

110 DIM La0):G100=18:G2=0:G3=0:ft=0:N=.S:S2=0:F=l 

120 PRINT "WHAT IB YOUR HANDICAP" ;: INPUT H 

130 IF H>30 THEN 470: IF H<0 THEN 470 

140 PRINT "H=HOOK, S=SLICE, D=DISTANCE, T=TRAP SHOT, P=PUTTING" 

150 PRINT "WHICH ONE IS YOUR WORST" ;: INPUT T* 

160 IF T*="H" THEN T=0 ELSE IF T*="S" THEN T=l ELSE IF T*="D" THEN T=2 ELSE IF T 

*="T" THEN T=4 ELSE IF T*="P" THEN T=5 

1E5 CLS 

170 Z9=INTC30*RND<:0> > + 15: IF TO 5 THEN 180 ELSE Z9=Z9~5 

180 PRINT "SELECTION OF CLUBS: ": PRINT 

190 PRINT "YARDAGE DESIRED"TABC35) "SUGGESTED CLUBS" 

200 PRINT 

210 PRINT " TO 100"TABC40>"29 TO 23" 

220 PRINT "100 TO 200"TAB<:40:>"19 TO 13" 

230 PRINT "200 TO 280 "TAB C40> " 4 TO 1" 

240 PRINT :PRINT "PERCENT OF SWING ON CLUBS 23 TO 29 ARE .01 TO .99" 

250 PRINT "CHOOSE PUTT POTENCY BY DISTANCE TO HOLE. " 

2E0 PRINT "YOUR PUTT POTENCY MUST BE BETWEEN 1 AND"Z9 

280 L C ) =0 : J=0 s Q=0 : S2=S2+ 1 : K=0 

290 IF F=l THEN 380 

300 PRINT "SCORE ON H0LE"F-1 "WAS"S1 :GOTO 1320 

310 IF SDP+2 THEN 330 ELSE IF S1=P THEN 340 

320 IF S1=P-1 THEN 350 ELSE IF Sl=P-2 THEN 3G0 ELSE 300 

330 PRINT "KEEP YOUR HEAD DOWN. ":GOTO 380 

340 PRINT "A PAR. NICE GOING. " : GOTO 380 

350 PRINT "A BIRDIE. ":GOTQ 380 

3S0 IF P=3 THEN 370:PRINT "A GREAT BIG EAGLE. ":GOTO 380 

370 PRINT "A HOLE IN ONE" 

380 IF F=19 THEN 1710 ELSE S1=0 

390 IF S1=0 THEN 1230 

400 IF LC0)<1 THEN 970 ELSE X=0: IF LC0)>5 THEN 390H 

410 PRINT "SHOT WENT"D1 "YARDS. IT' S"D2"YARDS FROM THE CUP." 

420 PRINT "BALL IS" ; INTCO) ; "YARDS OFF LINE. ..IN "? 

430 GOSUB 440: GOTO 540 

440 ON LCX) GOTO 480,490,500,510,520,530 

4E0 PRINT "OUT OF BOUNDS" : RETURN 

470 PRINT "PGA RULES HANDICAP = TO 30" : GOTO 120 

480 PRINT "FAIRWAY": RETURN 

490 PRINT "ROUGH": RETURN 

500 PRINT "TREES": RETURN 

510 PRINT "ADJACENT FAIRWAY" : RETURN 

520 PRINT "TRAP": RETURN 

530 PRINT "WATER": RETURN 
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540 (=1=1 :PRINT "PICK A CLUB" ;: INPUT C:PRINT 

550 IF C<1 THEN 580 ELSE IF C> 29 THEN 580 ELSE IF C> 4 THEN 590 

560 IF LC0) <5 THEN S00 ELSE IF C> 7 THEM 600 ELSE 580 

570 Si=Si-l 

5S0 PRINT "THAT CLUB IS NOT IN BAG. ": PRINTS GOTO 540 

530 IF C<12 THEN 5S0 ELSE C=C-G:GOTO 5E0 

E00 Sl=Sl+l:W=l:IF C> 13 THEN S10 

610 IF INTCF/3>=F/3 THEN 770 

620 IF C<4 THEN 630 ELSE 640 

£30 IF LC0)=2 THEN 700 

640 IF Sl>7 THEN 710 

650 D1 = INTC C (30-H)*2. 5+1S7-C C30-H)*. 25+15) *C/2) +25+RNDC0) > 

660 D1-INTCD1+W) : IF T=2 THEN 380 

670 O=CRNDC0) /. S)*<2*H+15)+ABS<:TAN<:Di'+3. 500000E-03) ) 

680 D2-INTCSG!RC0-t-2+flBSCD-Dl)+2) ) 

630 IF D-Di <0 THEN 720 ELSE 740 

700 PRINT "YOU DUBBED IT. " :D1==35:G0T0 670 

710 IF D<200 THEN 1050 ELSE 650 

720 IF D2<20 THEN 740 

730 PRINT "TOO MUCH CLUB. PAST THE HOLE. " 

740 B=D:D=D2 

750 IF D2>27 THEN 880 ELSE IF D2> 20 THEN 350 ELSE IF D2> . 5 THEN 3E0 

760 LC0)=9:GOTO 1130 

770 IF S2+Q+a0*CF-l)/lS)<<:F-l)*C72+<:CH+l)/.S5))/lS THEN 730 

780 GOTO 620 

730 Q=Q+1 

800 IF S1/2 0INTCS1/2) THEN 850 ELSE 700 

810 PRINT "PERCENT FULL SWING" ;: INPUT W: PRINT 

820 IF W> 1 THEN 570 

830 IF L<0)=5 THEN 1040 

340 IF C=14 THEN 640 ELSE C=C-10:GOTQ 640 

850 IF DOS THEN 700 

850 PRINT "BALL HIT TREE - BOUNCED INTO R0UGH"D-755" YARDS FROM HOLE. 

870 D=D-75:G0T0 540 

880 IF O<30 THEN 370 ELSE IF J> THEN 370 ELSE IF T> THEN 320 

830 S9=<:S2+1>/15: IF INTCS3)=S3 THEN 330 

300 PRINT "YOU HOOKED- " 5 :LC0> =L C2) 

310 IF 0>45 THEN 340 ELSE GOTO 390 

320 S9=CS2+1)/15:IF INTCS3)=S3 THEN 300 

330 PRINT "YOU SLICED- " ; s LC0) =L (. 1 ) : GOTO 310 

340 PRINT "BADLY. ":GOTO 390 

950 L(0)=5:GOTO 390 

960 L(0)=S:D2=INTCD2*3) :GOTO 1030 

370 L(0)=l:GOTO 390 

930 D1=TNT<:.85*D1):G0T0 670 

990 IF LC0)>6 THEN 1030 

1000 PRINT "SHOT WENT INTO WATER. " 

1010 S1=S1+1 

1020 PRINT "PENALTY STROKE ASSSESSED. " : J=J+1 : LC0) =1 : D=B:GOTO 540 

1030 PRINT "SHOT WENT OUT OF BOUNDS. " :GOTO 1010 

1040 IF T=3 THEN 1060 

1 050 D2= 1 + C 3+ 1 NT <: C 80/ C 40-H ) ) * C RND C ) ) ) ) : GOTO 1 090 

1060 IF R*RNDC0)>N THEN 1080 ELSE N=N*. 2 

1070 PRINT "SHOT DUBBED, STILL IN TRAP. ":GOTO 540 

1080 N=. 8:G0T0 1050 

1030 PRINT "ON THE GREEN, "D2"FEET FROM PIN. " 

1100 PRINT "PUTT POTENCY NUMBER" ;: INPUT I: IF I)Z3 THEN 1120 

1110 Sl=Sl+l:IF D2> I THEN 1140 ELSE 1130 

1120 PRINT "MUST BE BETWEEN 1 AND"Z3:G0T0 1100 

1130 IF Sl + l-P) CH*. 072)+2 THEN 1130 

1140 IF Sl>7 THEN 1130 ELSE IF T=5 THEN 1210 

1 150 P3=INT C C I*RND<:0) +2) +1 ) 

1160 IF D2/Z3<.4 THEN 1170 ELSE P9=P3+INT ( C 1/100) *D2) 

1170 D2-D2-P3 

1180 IF D2<-2 THEN 1220 ELSE IF D2> 2 THEN 1200 

1190 PRINT "YOU HOLED IT. " : PRINT : F=F+1 :GOTO 280 

1200 PRINT "PUTT SHORT. " : D2-INTCD2) : GOTO 1030 
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1210 D2=D2-<:CI*RND<:0>:! :GOTO USE) 

12213 PRINT "PASSED BY CUP. " :D2=-D2: GOTO 1030 

1230 READ D, P, LCI), LC2) SPRINT 

1240 PRINT "YOU ORE AT HOLE"F", DISTANCE"D"YARDS, PAR"P 

1250 G3=G3+P 

12E0 PRINT "ON YOUR RIGHT IS ";:X=l:OOSUB 440 

1270 PRINT "ON YOUR LEFT IS ";sX=2:G0SUB 440:GOTO 540 

12S0 RETURN 

1290 DATA 361,4, 4, 2,389,4,3,3, 20E, 3, 4,2,500,5, 7,2,408, 4,2,4, 359, 4,6, 4 

1300 DATA 424, 4, 4, 2, 388, 4, 4, 4, 196, 3, 7, 2, 400, 4, 7, 2, 5E0, 5, 7, 2, 132, 3, 2, 2 

1310 DATA 357, 4, 4, 4, 294, 4, 2, 4, 475, 5, 2, 3, 375, 4, 4, 2, 1S0, 3, 6, 2, 550, 5, 6, , 6 

1320 PRINT: G2=G2+S1 

1330 PRINT "TOTAL PAR FOR"F-i "HOLES IS"G3". YOUR TOTAL IS"G2"." 

■340 IF GlOF-1 THEN 310 ELSE END 
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Description 

This program allows you to vector in on a stationary target. You give 
orders for angle of fire, and the computer either tells you if the target 
is destroyed or how far you missed in yards. The artillery piece you are 
firing has a range of to 90 degrees. Don't waste your ammo. You only 
have 10 shells to play with! 



Variable list 

A = Angle for shot 
B = Angle picked by player 
G = Total number of shots in game 
H = Total number of targets destroyed • 
I = Total number of direct hits 

L = Number of yards shot traveled based on player's angle 
P = Shells expended in current round 
Q = Number of objects shot at 
S = Number of yards away from object 
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T1 = Total number of targets in game 
T9 = Percentage of shots hit 
Z = Variable used in determining number of yards to object 



Sample run 



THIS IS A GUNNERY GAME 

INSTRUCTIONS? (1 FOR YES>?1 

WELCOME TO BUNKER 7. YOU ARE LOCATED ONLY A FEU 
HUNDRED YARDS FROM THE ENEMY TRENCHES. YOU ARE NOW 
THE GUNNERY COMMANDER. IT IS YOUR DUTY TO DETERMINE 
THE ANGLE OF TROJECTORY AT WHICH TO FIRE YOUR 
ARTILARY. HOWEVER, THESE ARE HARD TIMES AND YOU WILL BE 
LIMITED TO 10 SHELLS PER TARGET. NOTE-- THE GUN HAS 
A RANGE OF TO 90 DEGREES. GOOD LUCK ! ! ! 

SIR, THERE IS A MACHINE GUN AT 045 YARDS. 

♦ ♦♦♦♦♦♦*♦•♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦*♦♦♦♦♦♦♦ 

WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE?25 
A MISS BY 64 YARDS, TRY AGAIN. 

ANGLE--?27 

BANG, TARGET DESTROYED ! ! ! 

2 SHELL. (S) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 
SHALL WE FIRE? (1=YES>?1 



SIR, LOOK ANOTHER MACHINE GUN, AT 70S YARDS. 

********************************************* 

WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE?23 
A MISS BY 26 YARDS, TRY AGAIN. 

ANGLE — ?22 

BANG, TARGET DESTROYED ! ! ! 

2 SHELL (S) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 
SHALL WE FIRE? <1=YES)?1 



THEY ARE CHARGING, NOW ONLY 758 YARDS AWAY. 

******************************************* 

WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE?24 
BANG, TARGET DESTROYED ! ! ! 

1 SHELL. (S) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 
SHALL WE FIRE? <1=YES)?1 

THERE, A TANK AT 932 YARDS. 

*************************** 
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WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE?32 
A MISS BY 15 YARDS* TRY AGAIN. 

ANGLE~~?33 

BANG. TARGET DESTROYED ! ! ! 

2 SHELL <S) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 
SHALL. WE FIRE? <1 = YES)?1 



THEY ARE RUSHING US* 447 YARDS HERE. 

WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE?13.2 
BANG* TARGET DESTROYED !!! 

1 SHELL(S) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 
SHALL WE FIRE? (1=YES>?1 



THERE IS A SUPPORT TRENCH* 348 YARDS AWAY. 

♦ ♦♦♦♦♦*♦♦♦♦♦♦♦♦*♦♦♦♦♦*♦**♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦* 

WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE? 10 
BOOM* DIRECT HIT MM! 

1 SHELL(S) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 
SHALL WE FIRE? <1=YES>?0 



A TOTAL OF 9 SHOTS FIRED OUT OF 6 TARGETS. 
THAT IS AN AVERAGE OF 1.5 SHOTS PER TARGET. 
A TOTAL OF 6 TARGET(S) DESTROYED. 

1 OF THEM BEING DIRECT HITS. 
FINE WORK MEN. MY RATING WAS 90 7. 



YOU ARE RATED AS A GENERAL! 
READY. 

QQQQQQQQQQ 

Program listing 



100 CLS: PRINT "THIS IB A GUNNERY GAME": PRINT 

110 PRINT "INSTRUCTIONS? CY=YES) " ; 

1215 INPUT ft*: IF fl$="Y" THEN 130 ELSE 200 

130 CLS: PRINT "WELCOME TO BUNKER 7. YOU ARE LOCATED ONLY A FEW 
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1 40 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
2E0 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
4G0 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
530 
640 
650 
650 
670 
680 
690 
700 
710 
720 
730 
740 
750 
750 
770 
780 
790 
800 



PRINT "HUNDRED YARDS FROM ENEMY TRENCHES. YOU ARE NOW 

PRINT "THE GUNNERY COMMANDER., .IT IS YOUR DUTY TO DETERMINE" 

PRINT "THE ANGLE OF TRAJECTORY AT WHICH TO FIRE YOUR" 

PRINT "ARTILLERY. HOWEVER, THESE ARE HARD TIMES AND YOU WILL BE" 

PRINT "LIMITED TO 13 SHELLS PER TARGET. NOTE — THE GUN HAS" 

PRINT "A RANGE OF TO 90 DEGREES. GOOD LUCK!!!" 

PRINT SPRINT "HIT -ENTER- TO BEGIN. . .";: INPUT A 

A=INTC90*RND(0)) : Z=A: V=100: Z=Z*<3. 1415/180) :F=CSIN<Z) >*V 

S=a2*F)*<SQRc:cv+2)-CF+2))>>/9. S:S=INT<:S) :IF Q<>0 THEN 520 
PRINT "SIR, THERE IS A MACHINE GUN AT"S"YARDS. " 

PRINT " 

PRINT 

PRINT "WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE"; 

P=l: INPUT BsGOTO 310 

PRINT: P=P+ls IF P=ll THEN 470 ELSE PRINT "ANGLE— ";: INPUT B 

IF B>90 THEN 370 ELSE IF B<0 THEN 370 

IF B=90 THEN 380 

E=B:E=E*C3. 1415/ 180) :0=SIN<E>*V:L=C<2*a)*<SQR<:<V+2)-(0-t-2>:O)/9.S 

L=INTCL) :M=ABS<:S-L:s 

IF B=0 THEN 390 ELSE C=A+1 : D=A-1 : IF B> =D THEN 340 ELSE 350 

IF B<=C THEN 400 

IF P=10 THEN 450 ELSE IF A=B THEN 400 ELSE IF M=0 THEN 400 

PRINT "A MISS BY"M"YARDS, TRY AGAIN. ":GOTO 280 

PRINT "THAT ORDER IS OUT OF RANGE, TRY AGAIN. ": P-P-l : GOTO 280 

PRINT "CONGRATULATIONS, YOU HAVE JUST BLOWN UP YOURSELF !": GOTO 280 

PRINT "YOU HAVE JUST BLOWN UP YOUR OWN LINES! ":GOTO 280 

H=H+1 

IF B=A THEN 420 ELSE PRINT "BANG, TARGET DESTROYED !!!": GOTO 430 

1 = 1 + 1 SPRINT "BOOM, DIRECT HIT!!!!!" 

PRINT 

PRINT P"SHELLCS) EXPENDED. " : GOTO 470 

PRINT "A MISS BY"M"YflRDS BUT, THOSE ARE ALL YOUR SHELLS." 

PRINT "THE CORRECT ANGLE OF FIRE WAS "A: PRINT 

PRINTsPRINT "WE HAVE SIGHTED ANOTHER TARGET." 

T1=T1+1 

PRINT "SHALL WE FIRE? CY=YES) ";: INPUT R* 

G=G+P:P=90sIF R$="Y" THEN 510 ELSE 690 

PRINT5PRINT:Q=Q+l:GQTO 200 

ON Q GOTO 540, 570, 600, 530, 550 

Q=0:GOTO 230 

PRINT "SIR, LOOK ANOTHER MACHINE GUN, AT"S"YARDS. " 

PRINT " " 

PRINTsGOTQ 260 

PRINT "THEY ARE CHARGING, NOW ONLY"S"YARDS AWAY. " 

PRINT " " 

PRINT: GOTO 2E0 

PRINT "THERE, A TANK AT"S"YARDS. " 

PRINT " " 

PR I NT: GOTO 250 

PRINT "THEY ARE RUSHING US, "S"YARDS AWAY. " 

PRINT ". " 

PR I NT: GOTO 250 

PRINT "THERE IS A SUPPORT TRENCH, "S"YARDS AWAY." 

PRINT " 

PR I NTs GOTO 250 

pr int sprint: pr i nt 

print "a total qf"g"shots were fired out of"tl "targets. " 

t9=intc<:g/ti:>+i00>/i00 

print "that is an average 0f"t9"sh0ts per target. " 

print "a total of "h" target (so were destroyed. " 

print i; "of them were direct hits." 

print "fine work men. my rating was"; 

T9=<:ai-<:3/Ti>>-T9:>*i0:Tg=iNT<:Tg*i00>/ 100: print T9"%" 

PRINT:PRINTsIF T9<20 THEN SE0 ELSE PRINT "YOU ARE RATED AS A "; 
IF T9>90 THEN PRINT ""GENERAL! ": END 
IF T9>80 THEN PRINT "COLONEL !" SEND 
IF T9>70 THEN PRINT "CAPTAIN !" : END 
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810 IF T8>&0 THEN PRINT "L IEUTENGNT ! " : END 

820 IF T9>50 THEN PRINT "SERGEANT! " :END 

B.^B IF T3>40 THEN PRINT "CORPORAL ! " :END 

840 IF T3>30 THEN PRINT "PRIVATE FIRST CLASS 1 ":END 

850 IF T9>20 THEN PRINT "PRIVATE I": END 

880 PRINT "YOU HAVE NO RATING! YGU WERE SO HOPELES 

870 END 



c I 
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Description 

The object of this game is to beat the other players by having 1 of your 
12 horses finish before 1 of the other player's 12 horses finishes (win). 
Each player throws a pair of dice. The player then decides which of his 
12 horses to advance based on the dice that were thrown. The player 
can either combine (add) the dice and move the horse with that number 
1 length, or he can advance 2 horses 1 length. In the latter situation 
each horse number would be one of the dice thrown. 

For example, let's say that the player throws a 5 and a 3. Then he 
can advance the 8 horse (5 + 3) 1 length or advance the 5 horse and the 
3 horse 1 length each. 

Note 

Because some numbers are easier to throw than others, the amount of 
lengths each horse must travel differs according to the probability of 
throwing that number (see NOTONE probability table.) 



Variable list 

D = Contents of die one 
D1 = Contents of die two 
N( ) = Number of lengths each horse has actually traveled for each 
player 



70 



P = Number played by player 
Q = Number of players 
T( ) = Number of lengths each horse number needs to travel in order 



to win 



Sample run 

THIS IS A HORSE RACE GAME. 

DO YOU WANT THE INSTRUCTIONS? (1 FOR YES)?1 

THIS IS A HORSE RACE GAME. THE OBJECT OF THE GAME IS TO BEAT 
THE OTHER PLAYER BY HAVING ONE OF YOUR TWELVE HORSES FINISH 
BEFORE THE OTHER PERSON'S HORSE FINISHES. 

THIS IS DONE BY EACH PERSON THROWING A PAIR OF DICE. 

AFTER THE DICE ARE THROWN , THAT PLAYER THEN DECIDES WHICH HORSE 

TO ADVANCE BASED ON THE DICE THAT WERE THROWN. YOU CAN EITHER 

COMBINE (ADD) THE DICE AND MOVE THAT HORSE ONE LENGTH,- OR YOU 

CAN ADVANCE TWO HORSES ONE LENGTH t EACH HORSE BEING 

ONE OF THE DICE THROWN. 

LET'S SAY THAT YOU THROW A 5 AND A 3. THEN YOU CAN ADVANCE 
THE 8 HORSE (5 + 3) ONE LENGTH OR ADVANCE THE 5 HORSE AND THE 
3 HORSE ONE LENGTH. 

BECAUSE SOME NUMBERS ARE EASIER TO THROW THAN OTHERS , THE AMOUNT 
OF LENGTHS EACH HORSE MUST TRAVEL DIFFERS ACCORDING TO THE 
PROBABILITY OF THROWING THAT NUMBER. 

GOOD LUCK. 



HOW MANY PLAYERST2 

PRINT A TABLE? (1 FOR YES>?1 
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PLAYER 1 'S TURN. 

YOU THREW A 2 AND A 4 
WHAT NUMBER DO YOU PLAY?2 



PLAYER 



'S TURN. 



YOU THREW A 2 AND A 4 
WHAT NUMBER DO YOU PLAY?6 

PRINT A TABLE? <1 FOR YES)?1 
PERSON 1 



1 -(XXX 
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PLAYER 1 'S TURN. 

YOU THREW A 6 AND A 1 
WHAT NUMBER DO YOU PLAY?1 



PLAYER 



'S TURN. 



YOU THREW A 5 AND A 4 
WHAT NUMBER DO YOU PLAYT5 



PRINT A TABLE? (1 FOR YES)?0 
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PLAYER 1 'S TURN, 

YOU THREW A 4 AND A 1 
WHAT NUMBER DO YOU PLAYT4 

PLAYER 2 'S TURN, 

YOU THREW A 4 AND A 5 
WHAT NUMBER DO YOU PLAY?4 



PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 3 AND A 5 
WHAT NUMBER DO YOU PLAY?3 

PLAYER 2 'S TURN, 

YOU THREW A 1 AND A 2 
WHAT NUMBER DO YOU PLAY?3 

PRINT A TABLE? (1 FOR YES>?0 
PLAYER 1 'S TURN. 

YOU THREW A 5 AND A 6 
WHAT NUMBER DO YOU PLAY?.ll 

PLAYER 2 'S TURN, 

YOU THREW A 1 AND A 6 
WHAT NUMBER DO YOU PLAY?6 

PRINT A TABLE? (1 FOR YES)?0 
PLAYER 1 'S TURN, 

YOU THREW A 2 AND A 4 
WHAT NUMBER DO YOU PLAY?4 

PLAYER 2 'S TURN. 

YOU THREW A 2 AND A 5 
WHAT NUMBER DO YOU PLAY?5 

PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN, 

YOU THREW A 6 AND A 2 
WHAT NUMBER DO YOU PLAY?6 

PLAYER 2 'S TURN, 

YOU THREW A 6 AND A 1 
WHAT NUMBER DO YOU PLAY?6 

PRINT A TABLE? (1 FOR YES)?0 
PLAYER 1 'S TURN, 
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YOU THREW A 4 AND A 2 
WHAT NUMBER DO YOU PLAYT4 

PLAYER 2 'S TURN. 

YOU THREW A 2 AND A 6 
WHAT NUMBER DO YOU PLAYT2 



PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 3 AND A 3 
WHAT NUMBER DO YOU PLAY?3 

PLAYER 2 'S TURN. 

YOU THREW A 5 AND A 2 
WHAT NUMBER DO YOU PLAYT5 

PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 2 AND A 6 

WHAT NUMBER DO YOU PLAY?5 
ILLEGAL MOVE. 

WHAT NUMBER DO YOU PLAY?6 

PLAYER 2 'S TURN. 

YOU THREW A 6 AND A 1 
WHAT NUMBER DO YOU PLAY?6 

PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 2 AND A 1 
WHAT NUMBER DO YOU PLAY?3 

PLAYER 2 'S TURN. 

YOU THREW A 5 AND A 4 
WHAT NUMBER DO YOU PLAYT5 

PRINT A TABLE? (1 FOR YES)?i 
PERSON 1 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 
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PERSON 



3 

4 

5 

6 

7 

8 

9 

10 

11 
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X ) 
X X 



X ) 



PLAYER 1 'S TURN. 

YOU THREW A 5 AND A 5 
WHAT NUMBER DO YOU PLAYT5 

PLAYER 2 'S TURN. 

YOU THREW A 6 AND A 3 
WHAT NUMBER DO YOU PLAY?6 



PRINT A TABLE? <1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 1 AND A 4 
WHAT NUMBER DC) YOU PLAY?1 

PLAYER 2 'S TURN. 

YOU THREW A 5 AND A 3 
WHAT NUMBER DO YOU PLAY?5 

PRINT A TABLE? (1 FOR YES)?0 
PLAYER 1 'S TURN. 

YOU THREW A 3 AND A 3 
WHAT NUMBER DO YOU PLAY?3 



PERSON 



1 - 

2 - 

3 - 

4 - 

5 - 

6 - 

7 - 

8 - 

9 - 

10 - 

11 - 

12 - 



<*> (*) <*> ( ) 
<*)<*X#X*X*X ) 

(*)<*) (*X*X*) <*> 



<*)(*X*X*X*X 
<*) (*) (*X X X 
(*) (*) <*> ( 
( X X X 
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PERSON 2 



3 

4 

5 

6 

7 

8 
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11 
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(*) <*> <*> ( 
<*) (*> <*> ( 
<*> <*> <*> ( 
<*> (*) <#> ( 
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PLAYER 1 HAS JUST WON WITH THE 3 HORSE. 
******CONGRATULATIONS TO PLAYER 1 . 



READY. 



QQQQQQQQQQ 



Program listing 



S0 I 
100 


:ls 

DIM T 


110 


FOR I 


120 


DATA 


130 


PRINT 


140 


PRINT 


150 


INPUT 


-i crcr 


CLS 


160 


PRINT 


170 


PRINT 


180 


PRINT 


130 


PRINT 


200 


PRINT 


210 


PRINT 


220 


PRINT 


230 


PRINT 


240 


PRINT 


250 


PRINT 


260 


PRINT 


270 


PRINT 


280 


PRINT 


290 


PRINT 


235 


CLS 


300 


PRINT 


310 


PRINT 


320 


PRINT 


330 


PRINT 



(12), MC10, 12) 

= 1T0 12s READ TCIXNEXT I 

4, 6, E, 8, 8, 10, 6, G, 4, 4, 2, 2 

sPRINT "THIS IS A HORSE RACE GAME. ":PRINT 

"DO YOU WANT INSTRUCTIONS? Ci=YES>"; 

A: IF A<> 1 THEN 350 

"THIS IS A HORSE RACE GAME. THE OBJECT OF THE GAME IS TO BEAT" 
"THE OTHER PLAYER BY HAVING ONE OF YOUR TWELVE HORSES FINISH" 
"BEFORE THE OTHER PERSON'S HORSE FINISHES." 

"THIS IS BY EACH PERSON THROWING A PAIR OF DICE." 

"AFTER THE DICE ARE THROWN, THAT PLAYER THEN DECIDES WHICH HORSE' 
"TO ADVANCE BASED ON THE DICE THAT WERE THROWN. YOU CAN EITHER" 
"COMBINE (ADD) THE DICE AND MOVE THAT HORSE ONE LENGTH, OR YOU" 
"CAN ADVANCE TWO HORSES ONE LENGTH, EACH HORSE BEING" 
"ONE OF THE DICE THROWN. ": PRINT 

"LET'S SAY THAT YOU THROW A 5 AND A 3. THEN YOU CAN ADVANCE" 
"THE 8 HORSE C5 + 3) ONE LENGTH OR ADVANCE THE 5 HORSE AMD THE" 
"3 HORSE ONE LENGTH. " 
SPRINT "PRESS ENTER TO CONTINUE ""INPUT X 

"BECAUSE SOME NUMBERS ARE EASIER TO THROW THAN OTHERS, THE" 
"AMOUNT OF LENGTHS EACH HORSE MUST TRAVEL DIFFERS ACCORDING TO" 
"THE PROBABILITY OF THROWING THAT NUMBER." 
:PRINT "GOOD LUCK ill!" 



76 



340 PRINT 

350 PRINT "HOW MANY PLAYERS" ;: INPUT Q 

360 IF G!<=0 THEN 350 

355 IF Q> 10 THEN 350 

370 PRINTrGOSUB 650 

375 PRINT 

3S0 FOR X=l TO Q 

390 PRINT "PLAYER " ; X ; " ' S TURN. " : PRINT 

400 D=INTCE*RNDC0) > + l : D1 = INT<:E*RNDC0) ) + i 

410 PRINT "YOU THREW A ";D;" AND A ""Dl 

420 PRINT "WHAT NUMBER DO YOU WISH TO PLAY" "INPUT P 

430 IF D+D1=P THEN 440 

435 GOTO 450 

440 N<X, P)=NCX, P)+l:GOTO 540 

450 IF D=P THEN 480 

4E0 IF D1=P THEN 470 

4E5 GOTO 530 

470 Dl=0sGOTO 490 

4S0 D=0 

490 N(X, P)=NCX, P) + l 

500 IF D1=0 THEN 520 

505 P=D1 

510 GOTO 440 

520 P=D:GOTO 440 

530 PRINTsPRINT "ILLEGAL MOVE. " : PRINTsGOTO 420 

540 FOR P=l TO 12 

550 IF NCX,P)<TCP) THEN 555 

553 GOTO 580 

555 NEXT P 

5G0 PRINTsNEXT X 

570 GOTO 370 

580 PRINT:PRINT:GOSUB E70 

590 PRINT:PRINT 

600 PRINT "PLAYER ";X?" HAS JUST WON WITH THE #";P;" HORSE. 

610 PRINT "****** CONGRATULATIONS TO PLAYER ";X;"." 

620 PRINTJPRINT 

630 PRINT5PRINT 

640 GOTO 770 

650 PRINT "PRINT A TABLE? CI FOR YES)"; 

660 INPUT A: IF A=l THEN 670 

665 RETURN 

670 FOR N=l TO Q:CLS:PRINT "PERSON ";N:PRINT 

6S0 FOR K=l TO 125PRINT K;sIFK>9 THEN 690 

685 PRINT " "5 

690 PRINT "- "; 

700 FOR M=l TO TCK): PRINT " (. " 5 

710 IF NCN, K) <M THEN 715 

713 GOTO 720 

715 PRINT " "; s GOTO 730 

720 PRINT "*"; 

730 PRINT ")";: NEXT M: PRINT 

740 NEXT K 

745 FOR W=l TO 750: NEXT W 

750 NEXT N 

755 CLS 

7E0 PRINTsPRINTsRETURN 

770 END 
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Description 

Let's go to Las Vegas! This game is one of chance. Slot machines are 
found in most gambling rooms throughout the world. Most slot ma- 
chines are made up of 3, 4, or more vertical reels (wheels) on which 
various symbols are marked. The symbols are usually a cherry, orange, 
bell, plum, apple, and a bar. A handle is pulled in order to spin the 
wheels which stop eventually to produce outcomes. These outcomes 
are created when symbols appear on the center line indicator. Different 
payoffs are given for winning combinations of symbol outcomes. A 
Jackpot pays the highest and usually, as in the case of this computer 
game, it is a combination of 3 bar symbols. 

In order to "pull the handle" in this computer game, simply hit the 
return key on your terminal keyboard. Keep plenty of loose change on 
hand— you'll need it! 
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Variable list 

A( ) = Object the reel stopped on 

M = Amount of money owned by player 

R( ) = Contents of objects on each reel 

W = Number of dollars won in current spin 



Jackpot probability table 

Outcomes 



Payoff 
($) 



Chance in 
8000 plays 



Probability 



Cherry Anything 

Cherry Cherry 

Orange Orange 

Bell Bell 

Plum Plum 

Apple Apple 

Orange Orange 

Apple Apple 

Bell Bell 

Bar Bar 



Anything 3 4X 14 X 20= 1120 

Anything 5 4 X 6 X 20 = 480 

Bar 6 5 X 4 X 1 = 20 

Orange 8 4X6X7 = 1 68 

Plum 10 3 X 2 X 4=24 

Anything 15 3 X 1 X 18 = 54 

Orange 18 5X4X7 = 140 

Apple 20 3X1X3 = 9 

Bell 30 4X 6 X 5 = 120 

Bar 200 1X1X1 = 1 
(Jackpot) 



1120/8000 

480/8000 

20/8000 

168/8000 

24/8000 

54/8000 

140/8000 

9/8000 

120/8000 

1/8000 



14 
6 

0.25 
2.1 
0.3 
0.7 
1.75 
0.1 
1.5 
0.0125 



Note: A) The term "anything" used in the payoff table and the probability table is to denote any symbol including 
cherry, orange, bell, plum, apple, and a bar. 

B) The 8000 play combinations figure is derived by recognizing that there are 3 reels on a jackpot machine 
and each reel has 20 combinations. Therefore, 20 X 20 X 20 = 8000. 



Sample run 

JACKPOT GAME. 

HO YOU WANT A LIST OF THE PAYOFFS? (1=YES)?1 



REEL 1 


REEL 2 


REEL 3 


PAYOFF 


CHERRY 


ANYTHING 


ANYTHING 


3 DOLLARS 


CHERRY 


CHERRY 


ANYTHING 


5 DOLLARS 


ORANGE 


ORANGE 


BAR 


6 DOLLARS 


BELL 


BELL 


ORANGE 


8 DOLLARS 


PLUM 


PLUM 


PLUM 


10 DOLLARS 


APPLE 


APPLE 


ANYTHING 


15 DOLLARS 


ORANGE 


ORANGE 


ORANGE 


18 DOLLARS 


APPLE 


APPLE 


APPLE 


20 DOLLARS 


BELL 


BELL 


BELL 


30 DOLLARS 


BAR 


BAR- 


BAR 


200 DOLLARS 
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YOU HAVE * 15 

HIT RETURN TO PULL HANDLE 

BAR CHERRY PLUM YOU WIN * 

AGAIN? (1-=YES)?1 

YOU HAVE $ 14 

HIT RETURN TO PULL HANDLE 

APPLE ORANGE BELL YOU WIN * 

AGAIN? (1=YES)?1 

YOU HAVE $ 13 

HIT RETURN TO PULL HANDLE 

ORANGE CHERRY ORANGE YOU WIN $ 

AGAIN? <1=YES>?1 

YOU HAVE * 12 

HIT RETURN TO PULL HANDLE 

BELL CHERRY BELL YOU WIN $ 

AGAIN? (1=YES)?0 

TOO BADr YOU LOST $ 4 
READY. 

OQOQOQOOOQ 

Program listing 

JACKPOT 



100 CLS 

110 PRINT "JACKPOT GAME. " : PRINT 

120 PRINT "DO YOU WONT A LIST OF PAYOFFS? (Y=YES) " ; 

130 INPUT A$:PRINT=PRINTsIF A*="Y" THEN 135 ELSE 2E0 

135 CLS 

140 PRINT "REEL 1","REEL 2", "REEL 3", "PAYOFF" : PRINT 

150 PRINT "CHERRY", "ANYTHING", "ANYTHING", "3 DOLLARS" 

160 PRINT "CHERRY", "CHERRY", "ANYTHING", "5 DOLLARS" 

170 PRINT "ORANGE", "ORANGE", "BAR", "6 DOLLARS" 

180 PRINT "BELL", "BELL", "ORANGE", "8 DOLLARS" 

190 PRINT "PLUM", "PLUM", "PLUM", "10 DOLLARS" 

200 PRINT "APPLE", "APPLE", "ANYTHING", "15 DOLLARS" 

210 PRINT "ORANGE", "ORANGE", "ORANGE", "IS DOLLARS" 

220 PRINT "APPLE", "APPLE", "APPLE", "20 DOLLARS" 

230 PRINT "BELL", "BELL", "BELL", "30 DOLLARS" 

240 PRINT "BAR", "BAR", "BAR", "200 DOLLARS" 
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250 
260 
270 
2S0 
230 
300 
310 
320 
330 
340 
350 
3B0 
370 
330 
330 
400 
410 
420 
430 
440 
450 
460 
470 
480 
430 
500 
510 
520 
530 
540 
550 
560 
570 
5S0 
530 
G00 
610 
620 
630 
640 
650 
660 
670 
680 



-ENTER- TO START. 



INPUT 

NEXT I : NEXT X 

2, 4, 4* 4i E? 1, 3, 2 



PRINT:PRINT "HIT 

DIM 0(3), R(3, 20) 

FOR X=l TO 20:FOR 1=1 TO 3: READ RCI,X) 

DATA 2, 4, 2. 5, 1,4, 2, 2,5, 6, 4, 6, 1, 1, 2 

DATO 4, 2, 6, 5, 4, 5, 6, 1, 4, 4, 5, 3, 5, 5, 5, 1, 1, 2, 

DATA 3, 4, 2, 2, 1, 4, 6, 2, 5, 1, 4, 2, 4, 6, 4, 2, 1, 2 

M=15 

CLSJPRINT "YOU HOVE *";M:PRINT 

PRINT "HIT -ENTER- TO PULL HANDLE" ?: INPUT A 

PRINT=PRINT 

FOR 1 = 1 TO 3!X=INTC20*RNDC0))+l:G(I)=R(I, X) 

GOSUB 620: NEXT IsW=0 

IF 0<l)O4 THEN 400 ELSE IF 0(2)04 THEN 520 

IF AC3)=4 THEN 330 ELSE IF 0(3)02 THEN 520 ELSE W= 

W=30:GOTO 520 

IF 0(1)05 THEN 420 ELSE IF 

W= 10: GOTO 520 

IF 0(1)03 THEN 440 ELSE IF 

W=200:GOTO 520 

IF 0(1)0 1 THEN 460 ELSE IF 

W=5:G0T0 520 

IF 0(1)02 THEN 490 ELSE 

IF 0(3)02 THEN 520 ELSE 

W=6:G0T0 520 

IF 0(1)0 6 THEN 520 ELSE 

IF 0(3)0 6 THEN 520 ELSE 

W= 15: GOTO 520 

IF WO 200 THEN 530 ELSE PRINT 

PRINT "YOU WIN *";W:PRINT 

M=M-1+W: PRINT "AGAIN? (Y=YES)"", 

INPUT 0*sPRINT:IF 0*="Y" THEN 320 ELSE PRINT 

IF M<15 THEN 580 ELSE PRINT "CONGRATULATIONS, YOU WON *" 

GOTO 6S0 

IF M<0 THEN 590 ELSE PRINT "TOO BAD, YOU LOST $"",15-M:G0 

PRINT "YOU HAVE 10 DAYS TO PAY ME *"!15-M!". AFTER THAT 

PRINT "IT IS OUT OF MY HONDS OS TO WHAT HOPPENS TO YOU!" 

GOTO 680 

IF A(I)=1 



GOTO 520 
0(2)0 5 THEN 520 ELSE IF 0(3)0 5 THEN 520 
0(2)03 THEN 520 ELSE IF 0(3) (>3 THEN 520 
A(2)=l THEN 450 ELSE W=3:GGT0 520 

20 ELSE IF 0(3) =3 THEN 480 



IF 0(2) <>2 THEN 
W=18:G0T0 520 

IF 0(2) OB THEN 
W=20:GOTO 520 



520 ELSE IF 0(3): 



THEN 510 



'>*»•:*** JACKPOT ***** 



"M- 
TO 



■15 
680 



IF 
IF 
IF 
IF 



0(1 
0(1 
OCX 
0(1 



)=3 
)=4 
)=5 



PRINT 
END 



THEN 
THEN 
THEN 
THEN 
THEN 



"APPLE 1 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
RETURN 



"CHERRY", : RETURN 
"ORANGE", : RETURN 
"BAR", : RETURN 
"BELL", : RETURN 
"PLUM", : RETURN 
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Description 

The object of this computer-simulated dice game is to roll a set of dice 

3 times to obtain a scoring combination and to achieve the highest total 
score for all games (up to 6 games). The game may be played by 2, 3 or 

4 persons. It also can be played solitaire by going for the highest possi- 
ble score. For the first roll of the dice the player must roll all 5 dice. 
For the second and third rolls the player may pick up 1, 2, 3, 4, or even 

5 of the dice and roll them again. The player may stop after the first 
roll, but if he chooses to roll 3 times, the third and final roll must be 
scored. 

In each game there are 15 scoring boxes in a vertical column on a 
score sheet. A player must make his own decision about what and where 
to score based on his individual strategy. 

In the Upper Section (BASIC Section) of the score sheet, there are 
"Aces" (ones), "Deuces" (twos), "Treys" (threes), "Fours," "Fives," 
and "Sixes." If a player chooses to score in one of the 6 boxes in the 
Upper Section, he counts and adds only the dice with the same number 
and enters the total of the dice in the appropriate score box. A bonus 
section is included for scoring extra points. If the player scores 63-70 
in the Upper Section he adds 35 points to his score; for 71-77 he adds 
55 points; and for 78 or over he adds 75 points. 

The Lower Section (KISMET Section) of the score sheet is played 
as follows: 

A) 2 pair same color— total all dice (points) 

B) 3 of a kind—total all dice (points) 

C) Straight 1 , 2, 3, 4, 5 or 2, 3, 4, 5, 6—30 points 

D) Flush (all same color)— 35 points 

E) Full house— total all dice plus 15 points 
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F) Full house same color-total all dice plus 20 points 

G) 4 of a kind— total all dice plus 25 

H) Yarborough— one chance to score total of all dice on a low-scoring 

throw of the dice 
I) KISMET (5 of a kind)-total all dice plus 50 points 

The grand total is obtained by adding the Upper and Lower Section 
scores together. Your strategy of rolling the dice and obtaining good 
scoring combinations is the key to this game! 



Variable list 

A = Location number picked by player 
B( ) - Amount of points for each player broken down by type 

D = Current dice amount 
D( ) = Dice amount picked for each die 

E = Flag to determine if location placement is legal 
E = 1 error 
E = location okay to use 

M = Total points for current board 

P = Number of points for location picked 

P6 = Player number being processed 

P9 = Number of players 

Q = Working variable that keeps track of dice being processed 
R9 = Number of rounds completed (maximum of 15) 

X = Location number picked (for subroutine) 
X( ) = Number of times a dice amount has appeared on current throw 



Sample run 



THIS IS THE GAME OF KISMET. 

HOW MANY WISH TO PLAYT1 

DO YOU WANT A TABLE? (1 FOR YES)?1 

PLAYER 1 



1 - ACES 

2 - DEUCES 

3 - TREYS 

4 - FOURS 

5 - FIVES 

6 - SIXES 



.1. 


FOR 


EACH 


ACE 





1 


FOR 


EACH 


DEUCE 





3 


FOR 


EACH 


TREY 





4 


FOR 


EACH 


FOUR 





5 


FOR 


EACH 


FIVE- 





6 


FOR 


EACH 


SIX 






TOTAL BASIC SECTION 



7 - 


2 PAIR SAME COLOR 


TOTAL DICE- 


8 - 


3 OF A KIND 


TOTAL DICE 


9 _ 


STRAIGHT 


30 POINTS 


10- 


FLUSH SAME COLOR 


35 POINTS 
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11- 


FULL HOUSE 






TOTAL 


DICE 


+ 


15 





12- 


FULL HOUSE 


SAME 


COLOR 


TOTAL 


DICE 


+ 


20 





13- 


4 OF A KIND 






TOTAL 


DICE 


+ 


25 





14- 


YARBOROUGH 


FREE 


TURN 


TOTAL 


DICE 









15- 


KISMET 


5 OF 


A KIND 


TOTAL 


DICE 


+ 


50 






TOTAL GAME TOTAL 



PLAYER 1 'S TURN. 



DICE 


1 


IS 


A 


2 


RED 


DICE 


t 


IS 


A 


3 


GREEN 


DICE 


3 


IS 


A 


6 


BLACK 


DICE 


4 


IS 


A 


6 


BLACK 


DICE 


5 


IS 


A 


5 


RED 



HOW MANY TO REPLACE? (0 TO ST0P>?1 
ENTER DICE NUMBERT3 

YOUR DICE LOOK LIKE THIS; 



DICE 


1 


•j 


RED 


DICE 


2 


3 


GREEN 


DICE 


3 


2 


RED 


DICE 


4 


6 


BLACK 


DICE 


5 


5 


RED 



HOW MANY TO REPLACE1 
ENTER DICE NUMBERT2 
ENTER DICE NUMBER?4 
ENTER DICE NUMBER?5 



YOUR DICE LOOK LIKE THIS.' 



(0 TO ST0P)?3 



DICE 


1 


2 


RED 


DICE 


2 


6 


BLACK 


DICE 


3 


o 


RED 


DICE 


4 


2 


RED 


DICE 


5 


1 


BLACK 



YOUR DICE TOTAL 13 

ENTER THE LOCATION NUMBER?2 

2 - DEUCES 2 FOR EACH DEUCE 

DO YOU WANT A TABLE? (1 FOR YES)?0 
PLAYER 1 'S TURN. 



DICE 


1 


IS 


A 


1 


BLACK 


DICE 


2 


IS 


A 


5 


RED 


DICE 


3 


IS 


A 


2 


RED 


DICE 


4 


IS 


A 


6 


BLACK 


DICE 


5 


IS 


A 


1 


BLACK 



HOW MANY TO REPLACE? 
ENTER DICE NUMBER?2 
ENTER DICE NUMBER?3 
ENTER DICE NUMBER?4 



(0 TO ST0P)?3 



YOUR DICE LOOK LIKE THIS J 



DICE 


1 


1 


BLACK 


DICE 


o 


4 


GREEN 


DICE 


3 


4 


GREEN 


DICE 


4 


5 


RED 


DICE 


5 


1 


BLACK 
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HOW MANY TO REPLACE? 
ENTER DICE NUMBER?! 
ENTER DICE NUMBER?4 
ENTER DICE NUMBER?5 



(0 TO ST0F : ')?3 



YOUR DICE LOOK LIKE THIS; 

DICE 1 3 GREEN 
DICE 2 4 GREEN 
DICE 3 4 GREEN 
DICE 4 1 BLACK- 
DICE 5 2 RED 

YOUR DICE TOTAL 14 

ENTER THE LOCATION NUMBER?1 

! _ ACES 1 FOR EACH ACE 

DO YOU WANT A TABLE? (1 FOR YES)?1 



PLAYER 



1 - ACES 

2 - DEUCES 

3 - TREYS 

4 - FOURS 

5 - FIVES 

6 - SIXES 



1 FOR EACH ACE 1 

2 FOR EACH DEUCE 6 

3 FOR EACH TREY 

4 FOR EACH FOUR 

5 FOR EACH FIVE 

6 FOR EACH SIX 



TOTAL BASIC SECTION 



7 - 


2 PAIR 


SAME 


COLOR 


TOTAL DICE 









8 - 


3 OF A KIND 






TOTAL DICE 









9 - 


STRAIGHT 






30 POINTS 









lO- 


FLUSH 


SAME 


COLOR 


35 POINTS 









ll - 


FULL HOUSE 






TOTAL DICE 


+ 


15 





12- 


FULL HOUSE 


SAME 


COLOR- 


TOTAL DICE 


+ 


20 





13- 


4 OF A KIND 






TOTAL DICE 


+ 


25 





14- 


YARBOROUGH 


FREE 


TURN 


TOTAL DICE 









15- 


KISMET 


5 OF 


A KIND 


TOTAL DICE 


+ 


50 






TOTAL GAME TOTAL 



PLAYER 1 'S TURN. 



DICE 


1 


IS 


A 


5 


RED 


DICE 


2 


IS 


A 


3 


GREEN 


DICE 


3 


IS 


A 


5 


RED 


DICE 


4 


IS 


A 


2 


RED 


DICE 


5 


IS 


A 


3 


GREEN 



HOW MANY TO REPLACE? (0 TO ST0P)?1 
ENTER DICE NUMBER?4 

YOUR DICE LOOK LIKE THISS 



DICE 
DICE 
DICE 
DICE 
DICE 



1 

2 

3 
4 



RED 

GREEN 

RED 

GREEN 

GREEN 



HOW MANY TO REPLACE? (0 TO STOP)?0 

YOUR DICE TOTAL 19 

ENTER THE LOCATION NUMBER?11 
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11- FULL HOUSE TOTAL DICE + 15 

DO YOU WANT A TABLE? (1 FOR YES>?0 
PLAYER 1 'S TURN, 



34 



DICE 


1 


IS 


A 


6 


BLACK 


DICE 


2 


IS 


A 


5 


RED 


DICE 


3 


IS 


A 


2 


RED 


DICE 


4 


IS 


A 


4 


GREEN 


DICE 


5 


IS 


A 


5 


RED 



HOW MANY TO REPLACE? 
ENTER DICE NUMBER?1 
ENTER DICE NUMBER?4 



(0 TO ST0P)?2 



YOUR DICE LOOK LIKE THIS! 



DICE 


1 


1 


BLACK 


DICE 


2 


5 


RED 


DICE 


3 


i 


RED 


DICE 


4 


6 


BLACK 


DICE 


5 


5 


RED 



HOW MANY TO REPLACE? 
ENTER DICE NUMBER?1 
ENTER DICE NUMBER?4 
ENTER DICE NUMBER?4 



(0 TO ST0P)?3 



YOUR DICE LOOK LIKE THIS: 



DICE 


1 


3 


GREEN 


DICE 


2 


5 


RED 


DICE 


3 


•■) 


RED 


DICE 


4 


1 


BLACK 


DICE 


5 


5 


RED 



TOTAL 16 
LOCATION NUMBER?2 



YOUR DICE 
ENTER THE 

ILLEGAL LOCATION. 

ENTER THE LOCATION NUMBER?! 

ILLEGAL LOCATION, 

ENTER THE LOCATION 



14- YARBOROUGH 



NUMBER?14 
FREE TURN TOTAL DICE 



16 



DO YOU WANT A TABLE? (1 FOR YES)?1 



PLAYER 



1 

r> 

3 
4 



ACES 

DEUCES 

TREYS 

FOURS 

FIVES 

SIXES 



1 


FOR 


EACH 


ACE 


1 


o 


FOR 


EACH 


DEUCE 


6 


3 


FOR 


EACH 


TREY 





4 


FOR 


EACH 


FOUR 





5 


FOR 


EACH 


FIVE 





6 


FOR 


EACH 


SIX 






TOTAL BASIC SECTION 



7-2 PAIR 

8 - 3 OF A KIND 

9 - STRAIGHT 

10- FLUSH 

11- FULL HOUSE 

12- FULL HOUSE 

13- 4 OF A KIND 



SAME COLOR- 



SAME COLOR 



SAME COLOR 



TOTAL DICE 
TOTAL DICE 
30 POINTS 
35 POINTS 
TOTAL DICE 
TOTAL DICE 
TOTAL DICE 



15 
20 











34 
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14- YARBOROUGH FREE TURN TOTAL DICE 

15- KISMET 5 OF A KIND TOTAL DICE 

TOTAL GAME TOTAL 



+ 50 



16 




PLAYER 1 



TURN. 



DICE 
DICE 
DICE 
DICE 
DICE 



IS 
IS 
IS 
IS 

IS 



BLACK 

RED 

GREEN 

RED 

BLACK 



HOW MANY TO REPLACE 



(0 TO STOP)' 



QQOOGQOOOO 



Program listing 
KISMET 



100 
110 
120 
130 
140 
150 
1E0 
170 
180 
190 
200 
210 
220 
230 
240 
250 
2G0 
270 
2S0 
290 
300 

310 
320 
350 
3E0 
370 
330 
390 
400 
410 
420 
430 
440 
450 
4G0 
470 
480 



DIM B 
CLS 
PRINT 
PRINT 
IF P9 
PRINT 
FDR I 
GOSUB 
GOTO 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 
IF 1 = 

IF 1 = 
IF 1 = 
PRINT 
FOR Q 
FOR Q 
IF X> 
E=UP 
FOR Q 
IF X= 
G=l:l 
IF X= 
IF E= 
E=0sP 
IF XC 
IF X= 
IF X= 



17), XCG),D<:5) 



"THIS IS THE GOME OF KISMET. ": PRINT 
"HOW MANY WISH TO PLOY" ;: INPUT P9 
<1 THEN 150 ELSE IF P9<4 THEN 1E0 
"NO MORE THAN 3 ALLOWED. " : GOTO 130 
TO 17:B<I, X)=0:NEXT 



= 1 TO 
1090 
7E0 

= 1 THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
3 THEN 



FOR X=l 



X:NEXT I 



9 
1 

11 THEN 

12 THEN 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



'4 - 
'5 - 
'E - 
'7 - 

i n 

O 

'9 - 
"10 
"11 
"12 



ACE",,"1 FOR EACH ACE" "RETURN 
DEUCES",, "2 FOR EACH DEUCE" ;: RETURN 
TREYS",, "3 FOR EACH TREY" ;: RETURN 
FOURS",, "4 FOR EACH FOUR" ;: RETURN 
FIVE",, "5 FOR EACH FIVE" 5 : RETURN 
SIX",, "6 FOR EACH SIX";:RETURN 
2 PAIR"," SAME COLOR", "TOTAL DICE"; 



: RETURN 



3 OF A KIND", "TOTAL DICE" ;: RETURN 
STRAIGHT", ,"30 POINTS" ;: RETURN 

- FLUSH"," SAME COLOR", "35 POINTS" ;: RETURN 

- FULL HOUSE", , "TOTRL DICE + 15"?: RETURN 

'TOTAL DICE + 'I 



FULL HOUSE", 



SAME COLOR' 



: RETURN 



"TOTAL DICE + 25";: RETURN 

FREE TURN", "TOTAL DICE"; 
TOTAL DICE + 50" ;: RETURN 



P=P+XCX)+X: RETURN 



13 THEN PRINT "13 - 4 OF A KIND" 

14 THEN PRINT "14 - YARBOROUGH", 
"15 - KISMET"," 5 OF A KIND",' 1 

=1 TO E:X(Q)=0:NEXT Q:P=0:E=0 

=1 TO 5:X(D(D) )=XCDCQ) >+l:NEXT Q:Q=1 

E THEN400 ELSE IF XCX)=0 THEN 390 ELSE 

0= RETURN 
=1 TO 6:P=P+XCQ)*Q:NEXT Q 
14 RETURN 
F X<>9 THEN 4E0 
1 THEN Q=Q+1=IF Q=E+5 THEN 450 ELSE 430 

I THEN 390 ELSE E=l :Q=2: GOTO 430 
=30: RETURN 

0)=5 THEN 470 ELSE Q=Q+1=IF Q=7 THEN 510 ELSE 4E0 
7 THEN 700 ELSE IF XO10 THEN 480 ELSE P=35:RETURN 

II THEN P=P+15=RETURN 



RETURN 
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430 IF X=12 THEN P=P+20 : RETURN 

500 IF X=15 THEN P=P+50: RETURN 

510 IF X=15 THEN 390 ELSE Q=1:IF X<>13 THEN 540 

520 IF XCG)>=4 THEN 530 ELSE Q=Q+1 : IF Q=7 THEN 330 ELSE 520 

530 P=P+25: RETURN 

540 IF XO10 THEN 5S0 ELSE Q=l 

550 IF X(Q)=0 THEN Q=Q+1:G0T0 550 

5GB IF Q>3 THEN 330 ELSE IF X C7-Q) +X CQ) <> 5 THEN 330 

570 P=35: RETURN 

5S0 IF XOS THEN S00 ELSE 0=1 

530 IF X(Q)>=3 THEN 700 ELSE Q=Q+1:IF Q=7 THEN 330 ELSE 590 

600 (3=1 : IF X<>7 THEN S40 

E10 IF XCQ)>=2 THEN 620 ELSE Q=Q+1 : IF Q=7 THEN 390 ELSE E10 

620 IF X(Q)=4 THEN 700 ELSE IF X CQ) +X (7-Q) <4 THEN 330 

630 IF XC7-Q)=1 THEN 330 ELSE 700 

640 IF X(Q)>=2 THEN 650 ELSE Q=Q+1:IF Q=7 THEN 330 ELSE 640 

650 IF XCQ)>3,THEN 330 ELSE IF X<>12 THEN 670 

6E0 IF XCQ) + XC7-Q:) <>5 THEN 330 ELSE P=P+20: RETURN 

670 Y=Q 

680 Q=Q+l:IF Q=7 THEN 390 ELSE IF XCQ)>=2 THEN 690 ELSE G80 

630 IF XtQ)+Xm<>5 THEN 330 ELSE P=P+15 : RETURN 

700 E=0: RETURN 

710 PRINT D;:IF D=l THEN 750 ELSE IF D=6 THEN 750 

720 IF D=2 THEN 740 ELSE IF D=5 THEN 740 

730 PRINT "GREEN" : RETURN 

740 PRINT "RED" : RETURN 

750 PRINT "BLACK": RETURN 

760 FOR R9=l TO 15 s FOR P6=l TO P9 

770 CLSsPRINT " PLAYER" 5 P6 5 "' S TURN. ":PRINT 

780 FOR J3=l TO 5:D=INTCE*RNDC0) )+l 

730 PRINT "DICE ";J3;"IS A";:GOSUB 710 

800 DCJ3)=DsNEXT J3:K4=0 

SIB PRINTsPRlNT "HOW MANY TO REPLACE? (0 TO STOP)"? 

S20 INPUT A: IF A=B THEN 900 

S30 FOR J3=l TO A: PRINT "ENTER DICE NUMBER" ; 

840 INPUT U2sD=INT<E*RND<.'0:>> + i 

850 DCU2)=D:NEXT J3:CLS 

860 PRINT "YOUR DICE LOOK LIKE THIS s":PRINT 

870 FOR J3=l TO 5: PRINT "DICE ";J3;" "" 

880 D=DCJ3) JGOSUB 710.-NEXT J3 

890 K4=K4+lslF K4<>2 THEN 810 

900 D=0:FOR J3=l TO 5:D=D+DC J3> :NEXT J3 

310 PRINTsPRlNT "YOUR DICE TOTAL "?D 

920 K4=0sFOR X=l TO 15:P=0:IF BCP6, X><>0 THEN 330 ELSE GOSUB 360 

330 K4=K4+PsNEXT X:IF K4 <> THEN 350 

340 IF K4<2 THEN 810 ELSE PRINT "NO LOCATIONS MUST INSERT A ZERO. 

350 PRINT "ENTER THE LOCATION NUMBER" ;: INPUT A 

3E0 IF BCP6, A)=0 THEN 980 

370 PRINT "ILLEGAL LOCATION. ": GOTO 950 

930 X=fi:GOSUB 360 

330 IF P=0 THEN p=-isE=0 

1000 IF E=l THEN 370 ELSE BCP6, A)=P 

1010 PRINT 

1020 I=A:GOSUB 190SPRINT TAB(50) ; 

1030 IF P=-l THEN PRINT "ZERO":GOTO 1050 

1040 PRINT P 

1050 GOSUB 1030 

1060 NEXT P6 

1070 NEXT R3 

1080 GOTO 1330 

1090 PRINTsPRlNT "DO YOU WONT A TABLE? (Y=YES) " ; 

1100 INPUT A*sIF A*="Y" THEN 1110 ELSE RETURN 

1110 FOR P=l TO P3 

1115 CLS 

1120 PRINT 

1130 PRINT "PLAYER "5PSPRINT 

1140 M=0 

88 



1150 FOR 1=1 TO 15:GOSUB 190 

1150 IF B(P, I)=-l THEN PRINT TABC50) 5 "ZERO" :GOTO 1190 

1170 PRINT TAEK50) 5BCP, I) 

11 80 m=m+b<:p, I) 

1190 IF IOG THEN 1290 

1200 IF M<53 THEN 1230 ELSE B=35 

1210 IF M<71 THEN 1230 ELSE B=B+20 

1220 IF M<78 THEN 1230 ELSE B=B+20 

1230 IF B=0 THEN 1270 

1240 PRINT 

1250 PRINT "BONUS POINTS ";TABC50>;B 

1250 M=M+B 

1270 PRINT: PRINT "TOTAL BASIC SECTION" 5 TAB < 50) ?M 

1230 PRINT: PRINT "HIT -ENTER- TO CONTINUE. .." 5 : INPUT W 

12S5 CLS 

1290 NEXT I 

1300 PRINT: PRINT "TOTAL GAME TOTAL" STAB C 50) ;M 

1305 PRINT "HIT -ENTER- TO CONTINUE. .." 5 : INPUT W 

1310 PRINT:NEXT P 

1320 RETURN 

1330 END 
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Description 

The object of this game is to throw a pair of dice, adding the totals as 
you go along. There are 10 rounds per game. The player with the most 
points after 1 rounds wins the game. If at any time in a round when a 
player throws the dice, the total equals the total of the first thrown 
dice in that particular round, then the player loses all the accumulated 
points for that round. The player can stop throwing the dice at any 
time. 



Note 

By looking over the probability table you can see that getting a 7 on 
the first throw of a round is less advantageous than a 2 or 12. The 
player can use the table strategically to try and win the game. 



Variable list 

C = Total points for computer in the round 
C1 = Total points for computer in the game 

D = Total of two dice 
D1 = Quantity of die one 
D2 = Quantity of die two 

F = Quantity of dice in first throw 
I = Round number (up to 10) 

P = Total points for player in the round 
P1 = Total points for player in the game 

R = Roll number 
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S = Total points for each round 

T = Total number of tries the computer should throw dice for current 
round based upon the first number thrown 

Z = Total number of points the computer should aim for in current 
round based upon first throw 



Notone 


probability table 






Total of 








dice 


Combinations 


Probability 


% 


2 


1 + 1 


1/36 


2.77 


3 


1 + 2 


2/36 


5.55 



10 



11 



12 



2+1 

1 +3 
3 + 1 

2 + 2 

1 +4 
4+ 1 

3 + 2 

2 + 3 

1 +5 
5 + 1 

4 + 2 

2 + 4 

3 + 3 

1 +6 
6+ 1 

5 + 2 

2 + 5 

3 + 4 
4+3 

2 + 6 

6 + 2 

5 + 3 

3 + 5 

4 + 4 

3 + 6 

6 + 3 

5 + 4 

4 + 5 

4 + 6 

6 + 4 

5 + 5 

5 + 6 

6 + 5 

6 + 6 



3/36 



4/36 



5/36 



6/36 



5/36 



4/36 

3/36 

2/36 
1/36 



8.33 



11.11 



13i 



16.66 



13. 



11.11 



8.33 



5.55 



2.77 
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Sample run 

NOTONE 

DO YOU WANT THE INSTRUCTIONS? (1=YES)?1 

THIS IS A GAME OF NOTONE. THE OBJECT OF THE GAME IS 
THROW A PAIR OF DICE? ADDING THE TOTALS AS YOU GO ALONG. 
IF AT ANY TIME WHILE THROWING THE DICE, THE TOTAL 
EQUALS THE TOTAL OF THE FIRST THROWN DICE, THEN YOU LOSE 
ALL THE ACCUMULATED POINTS FOR THAT ROUND. YOU CAN STOP 
THROWING THE DICE ANY TIME YOU WANT. THERE ARE 10 ROUNDS 
PER GAME. ***** GOOD LUCK ***** (I'M PRETTY GOOD!) 

YOU GO FIRST. 



ROUND 1 



YOUR TURN. 



ROLL 1 IS A 1 AND 2 
(O)STOP OR <DR0LL?1 
ROLL 2 IS A 5 AND 2 
(O)STOP OR <1)R0LL?1 
ROLL 3 IS A 2 AND 5 
(O)STOP OR (DR0LLT1 
ROLL 4 IS A 5 AND 6 
(O)STOP OR ( DROLL? 1 
ROLL 5 IS A 6 AND 2 
(O)STOP OR (1)R0LL?1 
ROLL 6 IS A 4 AND 2 
<0>STOP OR (1)R0LL?1 
ROLL 7 IS A 1 AND 4 
(O)STOP OR (1)R0LL?1 
ROLL 8 IS A 4 AND 5 
(O)STOP OR (1)R0LL?1 
ROLL 9 IS A 2 AND 6 
(O)STOP OR ( DROLL? 1 
ROLL 10 IS A 5 AND 4 
(O)STOP OR (DR0LL?1 
ROLL 11 IS A 5 AND 4 
(O)STOP OR <DR0LL?1 
ROLL 12 IS A 2 AND 3 
(O)STOP OR (DR0LL?1 
ROLL 13 IS A 3 AND 3 
(O)STOP OR (DR0LL?1 
ROLL 14 IS A 6 AND 3 
(O)STOP OR (DROLL?0 

YOU RECEIVED 102 POINTS IN THAT ROUND, 



MY TURN. 










ROLL 


1 


IS 


A 


5 


AND 


6 


ROLL 


2 


IS 


A 


4 


AND 


5 


ROLL 


3 


IS 


A 


6 


AND 


2 


ROLL 


4 


IS 


A 


4 


AND 


3 


ROLL 


5 


IS 


A 


3 


AND 


6 


ROLL 


6 


IS 


A 


2 


AND 


1 


ROLL 


7 


IS 


A 


6 


AND 


6 


ROLL 


8 


IS 


A 


5 


AND 


4 


ROLL 


9 


IS 


A 


4 


AND 


5 



ROLL 10 IS A 2 AND 3 
ROLL 11 IS A 3 AND 1 
ROLL 12 IS A 2 AND 6 
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ROLL 13 IS A 4 AND 5 
ROLL 14 IS A 3 AND 2 
ROLL 15 IS A 6 AND 4 

I RECEIVED 118 POINTS IN THAT ROUND. 



SCORE AT THE END OF ROUND 1 
YOU 102 
COMPUTER 118 

ROUND 2 

YOUR TURN. 

ROLL 1 IS A 3 AND 3 
(O)STOP OR <1)R0LL?1 
ROLL 2 IS A 4 AND 5 
(O)STOP OR <DR0LL?1 
ROLL 3 IS A 2 AND 2 
<0)STOP OR <1)R0LL?1 
ROLL 4 IS A 2 AND 5 
(O)STOP OR (1)R0LL?0 

YOU RECEIVED 26 POINTS IN THAT ROUND. 

MY TURN. 

ROLL 1 IS A 1 AND 1 
ROLL 2 IS A 4 AND 1 
ROLL 3 IS A 4 AND 5 
ROLL 4 IS A 5 AND 6 
ROLL 5 IS A 4 AND 6 
ROLL A IS A 3 AND 6 
ROLL 7 IS A 4 AND 6 
ROLL 8 IS A 5 AND 5 
ROLL 9 IS A 5 AND 1 
ROLL 10 IS A 1 AND 6 
ROLL 11 IS A 6 AND 3 
ROLL 12 IS A 1 AND 4 
ROLL 13 IS A 2 AND 3 
ROLL 14 IS A 4 AND 4 
ROLL 15 IS A 2 AND 5 

I RECEIVED 113 POINTS IN THAT ROUND. 



SCORE AT THE END OF ROUND 
YOU 128 
COMPUTER 231 

ROUND 3 

YOUR TURN. 



ROLL 1 IS A 5 AND 6 
(O)STOP OR <DR0LL?1 
ROLL 2 IS A 2 AND 4 
(O)STOP OR ( DROLL? 1 
ROLL 3 IS A 5 AND 1 
(O)STOP OR <1)R0LL?1 
ROLL 4 IS A 3 AND 4 
(O)STOP OR (1)R0LL?1 
ROLL 5 IS A 3 AND 6 
(O)STOP OR ( DROLL? 1 
ROLL 6 IS A 1 AND 5 
(O)STOP OR ( DROLL? 1 
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ROLL 7 IS A 1 AND 2 
<0)STOP OR (l)ROLL?l 
ROLL 8 IS A 3 AND 3 
(O)STQP OR (l)ROLLTl 
ROLL 9 IS A 6 AND 5 

YOU RECEIVED POINTS IN THAT ROUND, 

MY TURN. 

ROLL 1 IS A 4 AND 2 
ROLL 2 IS A 2 AND 1 
ROLL 3 IS A 3 AND 3 

I RECEIVED POINTS IN THAT ROUND. 



SCORE AT THE END OF ROUND 3 
YOU 128 
COMPUTER 231 

ROUND 4 

YOUR TURN. 



ROLL 1 IS A 
(O)STOP OR ( 
ROLL 2 IS A 
(O)STOP OR < 
ROLL 3 IS A 
(O)STOP OR ( 
ROLL 4 IS A 
(O)STOP OR ( 
ROLL 5 IS A 
(O)STOP OR ( 



1 AND 6 
l)ROLL?l 

2 AND 1 
l)ROLL?l 
2 AND 3 
DROLLT1 
4 AND 4 
l)ROLL?l 
1 AND 5 
DROLLTO 



YOU RECEIVED 29 POINTS IN THAT ROUND. 



MY TURN. 










ROLL 


1 


IS 


A 


5 


AND 


4 


ROLL 


*3 


IS 


A 


5 


AND 


5 


ROLL 


3 


IS 


A 


2 


AND 


4 


ROLL 


4 


IS 


A 


3 


AND 


1 


ROLL 


5 


IS 


A 


6 


AND 


5 


ROLL 


6 


IS 


A 


5 


AND 


2 


ROLL 


7 


IS 


A 


1 


AND 


6 


ROLL 


8 


IS 


A 


3 


AND 


rt 



I RECEIVED 59 POINTS IN THAT ROUND. 



SCORE AT THE END OF ROUND 4 
YOU 157 
COMPUTER 290 



ROUND 5 



YOUR TURN, 



ROLL 1 IS A 1 AND 2 
(O)STOP OR <1)R0LL?1 
ROLL 2 IS A 1 AND 1 
(O)STOP OR <1)R0LL?1 
ROLL 3 IS A 3 AND 1 
(O)STOP OR (DR0LL71 
ROLL 4 IS A 6 AND 2 
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<0)STOP 
ROLL 5 I 
(O)STOP 
ROLL 6 I 
(O)STOP 
„ROLL 7 I 
(O)STOP 
ROLL 8 I 
(O)STOP 
ROLL 9 I 
(OJSTOP 
ROLL 10 
(0>STOP 
ROLL 11 
(O)STOP 
ROLL 12 
(O)STOP 
ROLL 13 
(O)STOP 
ROLL 14 



OR (1 
S A 2 
OR (1 
S A 2 
OR (1 
S A 4 
OR <1 
S A 1 
OR (1 
S A 5 
OR <1 



IS 
OR 
IS 
OR 
IS 
OR- 
IS 
OR- 
IS 



A 

(1 

A 

(1 

A 

(1 

A 

(1 

A 



)R0LL?1 

AND 5 
)R0LL?1 

AND 5 
>R0LL?1 

AND 1 
)R0LL?1 

AND 3 
)R0LL?1 

AND 2 
>R0LL?1 
4 AND 6 
)R0LL?1 
4 AND 3 
)R0LL?1 

4 AND 4 
)R0LL?1 

5 AND 2 
)R0LL?1 
2 AND 1 



YOU RECEIVED POINTS IN THAT ROUND. 



MY TURN. 



ROLL 

ROLL 

ROLL 

ROLL 

ROLL 

ROLL 

ROLL 

ROLL 8 

ROLL 9 



IS 

IS 

IS 

IS 

IS 

IS 

IS 

IS A 

IS A 



AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 



I RECEIVED 57 POINTS IN THAT ROUND. 



SCORE AT THE END OF ROUND 5 
YOU 157 
COMPUTER 347 

ROUND 6 

YOUR TURN. 

ROLL 1 IS A 3 AND 1 
(O)STOP OR (DROLL? 



OOOQOQQOQQ 

Program listing 
NOTONE 



100 
11(3 
120 
130 
140 



REM J. VICTOR NfiHIGIflN— 10/05/75— VERSION 1 

CLSsPRINT TREK 30) ; "NOTONE" 

PRINT 

PRINT "DO YOU WANT INSTRUCTIONS? <Y=YES>"5 

INPUT A* 
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150 IF fi*="Y" THEN 160 ELSE 240 

160 CLS 

170 PRINT "THIS IS A GAME OF NOTONE. THE OBJECT OF THE GOME IS" 

180 PRINT "TO THROW A PAIR OF DICE, ADDING THE TOTALS AS YOU GO ALONG. 

130 PRINT "IF AT ANY TIME WHILE THROWING THE DICE, THE TOTAL" 

200 PRINT "EQUALS THE TOTAL OF THE FIRST THROWN DICE, THEN YOU LOSE" 

210 PRINT "ALL THE ACCUMULATED POINTS FOR THAT ROUND. YOU CAN STOP" 

220 PRINT "THROWING THE DICE ANY TIME YOU WANT. THERE ARE 10 ROUNDS" 

230 PRINT "PER GAME. ***** GOOD LUCK ***** (I'M PRETTY GOOD!)" 

240 P1=0:C1=0 

250 P=0:C=0 

260 PRINTsPRINT "YOU GO FI RST. " : PRINT 

270 FOR 1 = 1 TO 10: PRINT 

2S0 PRINT TABUS)! "ROUND" I 

290 PRINT:PRINT "YOUR TURN. ":PRINT 

300 GOSUB S90:F=D!D=0 

310 S=0 

320 



20 R=0 
30 R=R4 



= R+1 

340 PRINT "ROLL"R"IS A"D1"AND"D2 
350 IF D=F THEN 410 
360 S=S+D1+D2 

370 PRINT "<S)STOP OF < R) ROLL" ; s INPUT A* 
380 IF A*="S" THEN 420 
390 IF A*="R" THEN 400 ELSE 370 
400 GOSUB 890: GOTO 330 
410 S=0 
420 P=P+S 

430 CLS:PRINT "YOU RECEIVED"S" POINTS IN THAT ROUND. 
440 PRINTrPRINT "MY TURN." 
450 PRINT 
460 GOSUB 890 
470 F=D 
480 S=0 
490 R=0 
500 D=0 

510 T=18/(:3-INTCABSCF-7)/2)) 
520 Z=INT(C(<T*7)/6)-T)*36) 
530 R=R+1 

540 PRINT "ROLL"R"IS A"D1"AND"D2 
545 FOR X=1TD 250 s NEXT X 
550 IF F=D THEN 640 
560 S=S+D1+D2 
570 IF 'I<> 10 THEN 600 
580 IF C+S>P THEN 650 
590 GOTO 620 
600 IF R>=T THEN 650 
610 IF S>Z THEN 650 
620 GOSUB 890 
630 GOTO 530 
640 S=0 

650 CLS:PRINT "I RECEIVED"S" POINTS IN THAT ROUND." 
660 C=C+S 

670 PRINT: PRINT: PRINT "SCORED AT THE END OF ROUND" I 
680 PRINT "YOU";TAB(10> ;P 
690 PRINT "COMPUTER" 5TABC10) ?C 
700 NEXT I 
710 PRINT 
720 PRINT 

730 IF OP THEN 770 ELSE IF C=P THEN 760 
740 PRINT "YOU WIN! " : P1=P1+1 
750 GOTO 780 

760 PRINT "IT WAS A TIE!":GDTO 780 
770 PRINT "I WON!" :Cl=Cl+l:GOTO 780 
780 PRINT:PRINT TABC 10) 5 "GAME SCORES" 
790 PRINT 
800 PRINT "YOU";TABC10);P1 
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810 PRINT "COMPUTER" ;TOBC 10) SCI 

820 PR I NT SPRINT "ANOTHER GAME? (Y=YES>"5 

830 INPUT A*: IF A$="Y" THEN 250 

840 PRINT 

850 IF P1>C1 THEN 870 ELSE IF P1=C1 THEN 8S0 

850 PRINT "I WON THE GAMES BY"C1-P1 :GOTO 820 

870 PRINT "YOU WON THE GAME BY"P1-C1 :GOTO 920 

880 PRINT "IT WAS A TIE!":GOTO 920 

890 D1=INT(B*RNDC0) )+l 

900 D2=INT<:G*RNDC0))+1 

910 D=D1+D2: RETURN 

920 END 
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mm 







Description 

This program creates poems at random. The computer prints a different 
poem every time you run it. A noun-verb-adjective-adverb pattern is 
used in developing the poems. 



Variable list 

C = Group of cards to print (in multiple of fours) 
C = 5, then start new line 
C = 6, then print a semicolon (;) 
C = 18, then poem has ended 

I = Word number to print 



Sample run 

THIS PROGRAM MAKES RANDOM POEMS. 



SUNSHINE REMAINED OPENLY 
GENTLE RAGE SOARED? OUR BLOOD 
STARRY BEAUTY GROWS DOWN THIS 
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HAPPINESS SHRANK SADLY 

RAGE GROWS 

ECSTASY RISES OUR 

RED YOUNG REMAINED SILENTLY 

BESMIRCH DIED 

IN US 

HOT 



AGAIN? <1=YES>?1 



IMAGINARY FALLS WITH US 

WISE ECSTASY FLOWED? HOT LOVE 

RED WONDER PLUNGED SOFTLY SILVER 

BEAUTY MARCHES DOWN 

DEATH SINKS 

RAGE SLEEPS BLESSED 

WISE ITS REMAINED TENDERLY 

WISE FLOWED 

MAGICALLY 

THIS 



AGAIN? (1=YES)?1 



LOVE SHONE OPENLY 

STARRY WONDER SOARED? RED BEAUTY 

INNOCENT JOY SHRANK WITH US COOL 

DEATH SHRANK TO SOON 

WAR FALLS 

HAPPINESS GROWS BLESSED 

THIS YOUNG FLOWED WILDLY 

MASKED FLOWED 

BRIGHTLY 

WISE 



AGAIN? (1=YES)?0 



■IMHB ^il^^^^B ^^^^^W ^^^^^* ^^^^^m ^^^^^h ^^^^^n ^^^^^h ^^^^^h 



Program listing 



POEM 

100 PRINT:PRINT"THIS PROGRAM MAKES RANDOM POEMS. ": PRINT: PRINT 

110 REM NOUN-VERB-ADVERB PATTERN — P. WHITE 

120 READ C 

130 DATA 3,2,0,5,1,3,2,5,1,3,5,1,3,2,0,1,5,3,2,0 
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140 DATA 5,3,2,5,3,2,1,5,1,1,2,0,5=1,2,5,0,5,1 

150 DATA IS 

160 IF C=1S THEN 250 

170 IF COS THEN 200 

1S0 PRINT 

190 GOTO 120 

200 IF COB THEN 230 

210 PRINT ";"; 

220 GOTO 120 

230 I = < I NT C 20*RND C ) + 1 ) *4-C ) 

240 PRINT " ";::GOSUB 350 

250 GOTO 120 

260 PRINT 

270 PRINT 

2S0 PRINT 

290 PRINT "AGAIN? <1=YES>"; 

300 INPUT C 

310 IF C=l THEN 330 

315 GOTO 340 

320 PRINT 

330 RESTORE:PRINT."PRINT:PRINT:PRINT:PRINT::GOTO 120 

340 PRINT:PRINT:PRINT:PRINT::PRINT:STOP 

350 IF I> 1 THEN 3E0 

355 PRINT"LIFE";: RETURN 

3E0 IF I>2 THEN 370 

3E5 PRINT "MARCHES";: RETURN 

370 IF I>3 THEN 380 

375 PRINT "MASKED";: RETURN 

380 IF I>4 THEN 390 

385 PRINT "GENTLY";: RETURN 

390 IF I>5 THEN 400 

395 PRINT "DEATH"; : RETURN 

400 IF I>S THEN 410 

405 PRINT "SHRANK";: RETURN 

410 IF I>7 THEN 420 

415 PRINT "LOOMING";: RETURN 

420 IF I>8 THEN 430 

425 PRINT "PEACEFULLY"; : RETURN 

430 IF I>9 THEN 440 

435 PRINT "RAGE"; : RETURN 

440 IF I> 10 THEN 450 

445 PRINT "JUMPED";: RETURN 

450 IF I> 11 THEN 4E0 

455 PRINT "SWEET"; : RETURN 

460 IF I> 12 THEN 470 

465 PRINT "BRIGHTLY"; : RETURN 

470 IF I> 13 THEN 480 

475 PRINT "JOY";: RETURN 

480 IF I> 14 THEN 490 

485 PRINT "LAY";: RETURN 

490 IF I> 15 THEN 500 

495 PRINT "BESMIRCH"; : RETURN 

500 IF I> 16 THEN 510 

505 PRINT "OPENLY"; : RETURN 

510 IF I> 17 THEN 520 

515 PRINT "FEAR";: RETURN 

520 IF I> IS THEN 530 

525 PRINT "RISES"; : RETURN 

530 IF I>19 THEN 540 

535 PRINT "BLESSED";: RETURN 

540 IF I>20 THEN 550 

545 PRINT "DOWN";: RETURN 

550 IF I>21 THEN 560 

555 PRINT "JOY";: RETURN 

560 IF I>22 THEN 570 

565 PRINT "BURNS"; : RETURN 

570 IF I>23 THEN 580 
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575 PRINT "HOT";: RETURN 

580 IF I>24 THEN 590 

5S5 PRINT "FOR US";: RETURN 

530 IF I>25 THEN 600 

595 PRINT "ECSTASY";: RETURN 

S00 IF I>2E THEN E10 

E05 PRINT "DIED"?: RETURN 

610 IF I>27 THEN 620 

615 PRINT "RED"; :RETURN 

620 IF I>28 THEN 630 

625 PRINT "SADLY";: RETURN 

630 IF I>29 THEN 640 

635 PRINT "IMAGINARY"; : RETURN 

640 IF I>30 THEN 650 

645 PRINT "SHONE"; : RETURN 

650 IF I>31 THEN 660 

655 PRINT "OUR";:RETURN 

660 IF I>32 THEN 670 

665 PRINT "IN US";: RETURN 

670 IF I>33 THEN 6S0 

675 PRINT "LOVE";: RETURN 

6S0 IF I>34 THEN 690 

685 PRINT "SLEEPS";: RETURN 

690 IF I>35 THEN 700 

695 PRINT "GENTLE";: RETURN 

700 IF I>36 THEN 710 

705 PRINT "TENDERLY"?: RETURN 

710 IF I>37 THEN 720 

715 PRINT "HATRED";: RETURN 

720 IF I>38 THEN 730 

725 PRINT "SINKS"; : RETURN 

730 IF I>39 THEN 740 

735 PRINT "COOL";: RETURN 

740 IF I>40 THEN 750 

745 PRINT "SLOWLY";: RETURN 

750 IF I>41 THEN 760 

755 PRINT "BLOOD"; : RETURN 

760 IF I>42 THEN 770 

765 PRINT "REMAINED"; : RETURN 

770 IF I>43 THEN 780 

775 PRINT "CAPTIVE";: RETURN 

780 IF I>44 THEN 790 

785 PRINT "WILDLY";: RETURN 

790 IF I>45 THEN 300 

795 PRINT "HAPPINESS"; : RETURN 

800 IF I>4E THEN 810 

805 PRINT "FLOWED";: RETURN 

810 IF I>47 THEN 320 

815 PRINT "NEW" ; :RETURN 

820 IF I>48 THEN 830 

325 PRINT "SOFTLY"; : RETURN 

330 IF I>49 THEN 840 

335 PRINT "NIGHT"; : RETURN 

840 IF I>50 THEN 850 

845 PRINT "SWELLED"; : RETURN 

850 IF I>51 THEN 860 

855 PRINT "YOUNG"; : RETURN 

360 IF I>52 THEN 870 

865 PRINT "SILENTLY"; : RETURN 

370 IF I>53 THEN 880 

375 PRINT "SUNSHINE"; : RETURN 

380 IF I>54 THEN 890 

885 PRINT "RUNS"; : RETURN 

890 IF I>55 THEN 900 

895 PRINT "INNOCENT"; : RETURN 

900 1=1+4 
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910 IF DEB THEN 920 

915 PRINT "MAGICALLY";: RETURN 

920 IF I>E1 THEN 930 

925 PRINT "PEACE"; : RETURN 

930 IF I>E2 THEN 940 

935 PRINT "GROWS"; : RETURN 

940 IF I>63 THEN 950 

945 PRINT "WISE";: RETURN 

950 IF I>E4 THEN 9E0 

955 PRINT "AGAIN" ;: RETURN 

9E0 IF I>E5 THEN 970 

9E5 PRINT "BEAUTY"": RETURN 

970 IF DEE THEN 930 

975 PRINT "SOARED";: RETURN 

9S0 IF DE7 THEN 990 

9S5 PRINT "STARRY"; : RETURN 

990 IF DES THEN 1000 

995 PRINT "BRIEFLY";: RETURN 

1000 IF DE9 THEN 1010 

1005 PRINT "WAR" ;: RETURN 

1010 IF D70 THEN 1020 

1015 PRINT "FALLS";: RETURN 

1020 IF D71 THEN 1030 

1025 PRINT "SILVER";: RETURN 

1030 IF I>72 THEN 1040 

1035 PRINT "FOREVER";: RETURN 

1040 IF D73 THEN 1050 

1045 PRINT "MOONLIGHT"; :RETURN 

1050 IF D74 THEN 10E0 

1055 PRINT "PLUNGED" ;: RETURN 

10E0 IF I>75 THEN 1070 

10E5 PRINT "DIZZYING"; : RETURN 

1070 IF D76 THEN 10S0 

1075 PRINT "WITH US";: RETURN 

10S0 IF D77 THEN 1090 

10S5 PRINT "WONDER" "RETURN 

1090 IF D7S THEN 1100 

1095 PRINT "ENDED"; : RETURN 

1100 IF D79 THEN 1110 

1105 PRINT "THIS";: RETURN 

1110 IF I>80 THEN 1120 

1115 PRINT "TOO SOON";: RETURN 

1120 IF DS1 THEN 1130 

1125 PRINT "FIRE";: RETURN 

1130 IF DS2 THEN 1140 

1135 PRINT "COMES"; : RETURN 

1140 IF DS3 THEN 1150 

1145 PRINT "ITS" ;: RETURN . 

1150 PRINT "VIVIDLY"; :RETURN 

11E0 END 
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Description 

In this game, you and the computer play draw poker against each other. 
You both have $100.00 to start the game. The cards are shuffled and 
your hand and the computer's hand are dealt. The computer deals you 
5 cards, all face down. Upon completion of the deal the betting begins. 
You open with your first bid, betting according to what you have to 
start with in your hand. The computer and you both may discard 1 or 
more cards (but not more than 4) and receive new cards from the un- 
dealt portion of the card pack. This is the draw. You may stand pat 
and draw no cards if you wish. 

After the draw there is another betting round, followed either by 
you or the computer calling for the other to show his hand. 



Rank of cards 

A (high), K, Q, J, 10, 9, 8, 7, 6, 5, 4, 3, 2, A (low). The Ace is low only 
in the sequence 5-4-3-2-A. 



Rank of hands 

1 . Royal flush— an ace-high straight flush. 

2. Straight flush -5 cards in the same suit, ranking consecutively. 

3. Four of a kind-4 cards of the same rank. 
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Full house— 3 cards of one rank and 2 cards of another rank. 



5. Flush— 5 cards of the same suit. 

6. Straight— 5 cards in 2 or more suits, ranking consecutively. 

7. Three of a kind— 3 cards of the same rank. 

8. Two pairs— 2 cards of one rank and 2 cards of another rank, 
with an unmatched fifth card. 

9. One pair— 2 cards of the same rank, with 3 unmatched cards. 
1 0. No pair— loses to hand above it. 



Draw poker probability table 

Number of 

Hand combinations Odds (hands) 

Royal flush 4 1 in 649,740 

Straight flush 36 1 in 72,193 

Four of a kind 624 1 in 4,165 

Full house 3,744 1 in 694 

Flush 5,108 1 in 509 

Straight 10,200 1 in 255 

Three of a kind 54,912 1 in 47 

Two pairs 123,552 1 in 21 

One pair 1,098,240 1 in 2 



Variable list 

A9 = Total amount in pool 

B = Amount of money bid by player 
B1 = Amount of money bid by computer 
B9 = Dollar limit for computer before it decides to "go out" 
C = Type of card 
C1 = Rank of computer's hand 
C2 = Computer's high card 
C( ) = Type of card held by computer (by card number) 
C1 ( ) = Suit of card held by computer (by card number) 
C9( ) = Number of cards in hand of a particular suit 
H8 = Number of cards computer will replace 
H9 = High card in current hand 
K9 = Number of cards player replaced 
M( ) = Type of card held by player (by card number) 
M1 ( ) = Suit of card held by player (by card number) 
P1 = Rank of player's hand 
P2 = Player's high card 
P9 = Amount of money owned by player 
S = Suit of card 
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S( ) = Cards picked from deck 

T = Rank of current hand 
T9 = Card number picked by player to replace 
T( ) = Number of cards in hand of a particular kind 



Sample run 

POKER GAME. 

ON BETTING* BET A ZERO TO CALL, 
A NEGATIVE NUMBER TO GO OUT! 



CARDS ARE RESHUFFLED. 

ANTE OF * 5.00 
YOU HAVE * 100 



HERE IS YOUR HAND: 

CARD 1 IS A 9 OF CLUBS 
CARD 2 IS A 2 OF HEARTS 
CARD 3 IS A 7 OF CLUBS 
CARD 4 IS A ACE OF HEARTS 
CARD 5 IS A JACK OF CLUBS 

I'LL PICK MY HAND. 

OPEN WITH A BET?10 
I'LL ACCEPT. 



HOW MANY CARDS TO REPLACET3 
CARD NUMBERT1 
CARD NUMBERT2 
CARD NUMBER?3 

HERE IS YOUR HAND! 

CARD 1 IS A 9 OF HEARTS 
CARD 2 IS A 5 OF DIAMONDS 
CARD 3 IS A KING OF SPADES 
CARD 4 IS A ACE OF HEARTS 
CARD 5 IS A JACK OF CLUBS 

I'LL TAKE 3 CARDS. 

HOW MUCH DO YOU BETTS 

I RAISE $ 3 

HOW MUCH DO YOU BET?0 



I HAD ONE PAIR 

WITH A HIGH CARD OF 8 . 

YOU HAD NOTHING 

WITH A HIGH CARD OF ACE. 
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I WON $ 23 

AGAIN? (i=YES)?l 

CARDS ARE RESHUFFLED. 

ANTE OF * 5.00 
YOU HAVE * 77 

HERE IS YOUR HAND J 

CARD 1 IS A ACE OF SPADES 
CARD 2 IS A 9 OF HEARTS 
CARD 3 IS A JACK OF CLUBS 
CARD 4 IS A 3 OF DIAMONDS 
CARD 5 IS A 3 OF HEARTS 

I'LL PICK MY HAND. 

OPEN WITH A BET?5 
I'LL ACCEPT. 



HOy MANY CARDS TO REPLACET3 

CARD NUMBER?! 
CARD NUMBER72 
CARD NUHBERT3 

HERE IS YOUR HAND: 

CARD 1 IS A 3 OF CLUBS 

CARD 2 IS A 5 OF DIAMONDS 

CARD 3 IS A 9 OF CLUBS 

CARD 4 IS A 3 OF DIAMONDS 

CARD 5 IS A 3 OF HEARTS 

I'LL TAKE 3 CARDS, 

HOW HUCH DO YOU BET?10 

I RAISE $ 18 

HOy MUCH DO YOU BET?5 

I RAISE $ 12 

HOW MUCH DO YOU BET?10 

I RAISE * 5 

HOy HUCH DO YOU BET?10 

I RAISE $ 9 

HOW HUCH DO YOU BET?5 

I RAISE * 4 

HOW MUCH DO YOU BETT10 

I CALL! 

I HAD NOTHING 

WITH A HIGH CARD OF QUEEN, 

YOU HAD THREE OF A KIND 
UITH A HIGH CARD OF 3 . 



YOU WON $ 108 
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AGAIN? <1=YES>?0 

YOU LEFT WINNING $ 185 

READY. 



E^h t^ Uh '-J Lj Lj Q Lj [j [^J 



Program listing 

100 DIM TC13),C3<:4), S(4, 13), M(5), M1C5), CCS), CI (5) 

110 CLS:PRINT "POKER GAME. ": P3=100: PRINT 

120 PRINT "ON BETTING, BET ZERO TO CALL, " 

130 PRINT "A NEGATIVE NUMBER TO GO OUT!": PRINT 

140 FOR X=l TO 4:F0R 1=1 TO 13 :SC X, I ) =0: NEXT IsNEXT XsPRINT 

150 PRINT "CARDS ARE RESHUFFLED. " 

1G0 A9=5: PRINT: PRINT "ANTE OF $5. 00" : PRINT "YOU HAVE *";P9:PRINT 

1G5 PRINT: PRINT "HIT -ENTER- TO BEGIN. . .";: INPUT Z*."CLS 

170 FOR X=l TO 5:G0SUB 920:M< X>=C:M1 CX)=S: NEXT X : 30SUB 1040 

1S0 PRINT:PRINT "I'LL PICK MY HAND. " :PRINT 

190 FOR X=l TO 5:G0SUB 320:CCX)=-C:C1 <X)=S:NEXT x 

200 GOSUB 10S0:Cl=T:C2=H9:Pl=-5 

210 print "open with a bet" 5 : input b: if b<0 then 210 else if rndc0m.2 then 230 

220 if int(:<:<:t+rnd(:0)) + i:) + (:ch9*rndc0))+i:> + (:t+i0)) <b-cb/i0) then 440 

230 a9=a9+b: print "i'll accept. ": print 

240 print:print "how many cards to replace" 5 : input k9:if k9=0 then 290 

250 FOR X=l TO K3 

260 PRINT "CARD NUMBER" ;: INPUT T3:G0SUB 920 

270 IF T9<G THEN 2S0 ELSE PRINT "ENTER CARD NUMBER FROM 1 TO 5.": GOTO 2G0 

200 M(T9)=C:M1<:T9)=S5NEXT X:GOSUB 1040 

290 GOSUB 1070:FOR X=l TO 5:TCMCX) )=TCM( X) )+l :C3CM1 C X) )=C9CM1(X) )+l 

300 NEXT X: GOSUB S40: P1=T: GOSUB 300:P2=H9 

310 PRINT:GOSUB 10S0:H9=0:IF T> 3 THEN 350 

320 FOR Z=l TO 5: IF H9=3 THEN 340 ELSE IF TCCCZ) ) <> 1 THEN 340 ELSE H9=H9+1 

330 GOSUB 320:CCZ)=C:Clf:Z)=S 

340 NEXT Z 

350 PRINT "I'LL TAKE" "H3; "CARDS. " :H8=H9 

360 GOSUB 10S0:C1=T: GOSUB S00:C2=H3 

370 B9=INT!:CC1*RND<:0) ) + <C2*RND<0) ) + <:Cl*10) )+INTCA9/3)+C CK3-HS) *2) +7 

330 B1=0: PRINTS IF RNDC0) <C1*. 5 THEN 330 ELSE B3=33. 33 

330 PRINT "HOW MUCH DO YOU BET";: INPUT B 

400 PRINT: IF B<0 THEN 570 ELSE A3=A3+B1 

410 IF B=0 THEN GOSUB 480 

415 GOTO 540 

420 IF A3+EKB9 THEN 460 ELSE IF A3+B <B9+CB9/2) THEN 450 

430 IF B3=39. 99 THEN 450 

440 PRINT "I'M OUT!":GOSUB 480: GOTO 580 

450 PRINT "I CALL! ":A9=A3+B-- GOSUB 4S0:GOTO 540 

460 B1=INT< ( CB9-A9) /3) *RNDC0) ) +2: A3=A3+B 

470 PRINT "I RAISE $";Bl:GOTO 390 

4S0 PR I NT: PR I NT "I HAD "; :T=C1 : GOSUB S20 

490 PRINT "WITH A HIGH CARD OF "; s C=C2: GOSUB 340: PRINT". ": PRINT 

500 IF PI =-5 THEN 530 

510 PRINT "YOU HAD " ; :T=P1 :GOSUB 820 

520 PRINT "WITH A HIGH CARD OF " ; :C=P2:G0SUB 940: PRINT ".":PRINT 

530 PR I NTs RETURN 

540 IF C1=P1 THEN 550 ELSE IF CKP1 THEN 580 ELSE 570 

550 IF C2=P2 THEN 560 ELSE IF C2<P2 THEN 580 ELSE 570 

560 PRINT "IT WAS A TIE!!!":GOTO 530 

570 PRINT "I WON *" ; A3 : P3=P3-A3 : GOTO 590 

580 PRINT "YOU WON $" ; A3: P3=P3+A9 
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530 
600 

610 
623 

e.30 

£40 

£50 

G60 

G70 

E80 

£90 

700 

710 

720 

730 

740 

750 

7£0 

770 

7S0 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

9E0 

970 

980 

390 

1000 

1010 

1020 

1030 

1040 

1050 

10B0 

1070 

1080 

1090 

1100 



INPUT B$: IF B$="Y< 



PRINTJPRI.MT "AGAIN? (Y=YES) ,! 

PRINT: IF P9<0 THEN E30 

IF PS>=100 THEN E20 ELSE PRINT "YOU 

PRINT "YOU LEFT WINNING *";P9:GOTO 1100 

PRINT "YOU OWE HE *";-P3:G0TQ 1100 

T=0:FOR 1=1 TO 4:IF C9 C I ) <> 5 THEN £50 ELSE T=5 

NEXT I:l=2:H9=0 

1 = 1-1 : IF IO0 THEN 670 ELSE 1 = 13 

IF TCIX1 THEN 6E0 ELSE H9=1:IF I <> 1 THEN 630 ELSE 1 = 1 

Z=I-4 

1 = 1-1 : IF TCIiOi THEN 720 

IF Z<> 1 THEN 690 

T=T+4sIF ZO10 THEN 720 ELSE IF T=4 THEN 170 E 



HEN 140 



LOSING *" ;100-P9:GOTO 1100 



750 ELSE 
T=T+5:H9=I 
IF T=5 THEN 780 
H9> I THEN 780 E 



T=7 



IF 1=13 THEN 660 ELSE IF TO 5 THEN 730 ELSE IF 

IF T=0 THEN 740 ELSE RETURN 

FOR 1 = 1 TO 13s IF T(I)<>4 THEN 

IF TCI) <>3 THEN 7E0 ELSE 

IF TCI)<>2 THEN 730 ELSE 

IF H9=l THEN 780 ELSE IF 

T=T+1 

NEXT I: IF TO 5 THEN 810 ELSE T=3: RETURN 

IF H3 1 THEN 810 ELSE H9=14 

RETURN 

IF T=0 



SE T=T+1 
TCI) <> 1 THEN 



730 ELSE H3=l 



SE H9=3 



TO0 THEN 770 ELSE H9=0 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



T=l 

T=4 

T=5 
T=6 
T=7 
T=9 



PRINT 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
ROYAL 



PRINT "NOTHING":RETURN 
PRINT "ONE PAIR": RETURN 
PRINT "TWO PAIR"s RETURN 
PRINT "THREE OF A KIND" s RETURN 
PRINT "STRAIGHT": RETURN 
PRINT "FLUSH": RETURN 
PRINT "FULL HOUSE" s RETURN 
PRINT "FOUR OF A KIND":RE1 
PRINT "STRAIGHT FLUSH" : RE1 
FLUSH! 



RiRN 
(URN 



RETURN 

S= I NT C 4*RND C ) ) + 1 : C= I NT C 1 3*RND C ) ) + 1 
IF SCS, C)=l THEN 320 ELSE SCS, C)=l : RETURN 



IF 
IF 
IF 
IF 

IF 



C=l THEN PRINT ' 

THEN PRINT 

THEN PRINT 

THEN PRINT 

THEN PRINT 



C=ll 
C=12 
C=13 
C=14 
PRINT C 
IF S=l 
IF S=2 
IF S=3 
PRINT 



ACE";: RETURN 
"JACK";: RETURN 
"QUEEN"; : RETURN 
"KING";: RETURN 



'ACE 



: RETURN 



: s RETURN 

THEN PRINT " OF HEARTS" : RETURN 
THEN PRINT " OF SPADES" : RETURN 
THEN PRINT " OF DIAMONDS" : RETURN 
1 OF CLUBS": RETURN 
CLS: PRINT "HERE IS YOUR HAND: ": PRINT :FOR X=l 
C=MCX) :S=M1CX) :PRINT "CARD" ;X; "IS A " ;:GQSUB 
NEXT X: RETURN 

FOR X=l TO 4:C9CX)=0:NEXT X:FOR X=l TO 13:TCX) 
GOSUB 1070:FOR X=l TO 5:TCCCX) )=TCCC X) )+l 
C3'::C1CX))=C9CC1CX)) + 1:NEXT X:GOSUB 640: RETURN 
END 



TO 5 
340: GOSUB 



L000 



=0:NEXT X: RETURN 
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Description 

In this psychological game you take 5 tests. In each test the computer 
will draw a design. You are to take that design and draw a picture using 
the design in your picture. After you have drawn your picture, you 
will answer a question about what you drew. After the 5 patterns have 
been drawn, the computer will make a psychoanalysis of your per- 
sonality. 

The computer uses the technique commonly known in psychology 
as projective analysis. This testing technique is one method for describ- 
ing inner personality characteristics such as levels of anxiety, tension, 
creativity, and self-confidence. The results of the test are based on pre- 
determined constructs (statements) that were created through experi- 
mental testing of large samples of personalities. 

Note 

You should draw the picture before reading the question because the 
question may influence what you draw. In the enclosed sample run, an- 
swers were not entered so that your responses might not be influenced. 



Variable list 

A = Answer to Test # 1 
B = Answer to Test #2 
C = Answer to Test #3 
D = Answer to Test #4 
E = Answer to Test #5 
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Sample run 

THIS IS A PSYCHOLOGY TEST. 

THERE ARE FIVE SHORT TESTS. EACH TEST WILL BE SOME 
DESIGN. YOU ARE TO MAKE A PICTURE OUT OF THE DESIGN. 
AFTER YOU DRAW THE PICTURE, YOU WILL ANSWER A QUESTION 
ON WHAT YOU DREW. AFTER THE FIVE TESTS ARE OVER, 
THE COMPUTER WILL MAKE AN ANALYSIS OF YOU. 



TEST #1 



X 
XXX 
XXX 

X 



THE DOT IN THE MIDDLE OF THE TEST BLOCK- 
REPRESENTS IN YOUR PICTURE... 

(1) THE CENTRAL SUBJECT. 

(2) THE RIGHT OR LEFT OF THE SUBJECT. 
?0 

TEST *2 



«^ ^ ^k ^ r \t ^^ ^k ^^ ^k ^k ^k ^ ^k 4i ^k '& ^k ^k J^ ^k ^k ^t ^k >|f *4t 4 ^k ^k ^/ ^ 4 ^fr , fr ^^ 4 

X X 

X X 

X X 

X X 

X X 



X X 

X X 

X X 

X X 

X X 
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IN YOUR PICTURE ARE THE FOUR CORNER LINES CONNECTED? 
TYPE A 1 FOR YESf OR A FOR NO?0 

TEST #3 



IN YOUR PICTURE DOES THE DESIGN REPRESENT STAIRS? 
TYPE A 1 FOR YES> OR A FOR NO?0 

TEST #4 
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THE SUBJECT OF YOUR PICTURE IS... 

CD AN ANIMAL OR PERSON (2) SOMETHING HECHANICAL 

?0 

TEST #5 



HOW MANY TIMES IN YOUR PICTURE DID YOU DRAW A LINE WHICH 

CROSSED BOTH PARALLEL LINESTO 



QQQQaQQQQQ 



Program listing 



PSYCHO 


130 


CLS 


110 


PRINT 


120 


PRINT 


130 


PRINT 


im 


PRINT 


150 


PRINT 


160 


PRINT 


170 


PRINT 


175 


CLS 


1S0 


PRINT 


130 


PRINT 


200 


PRINT 


210 


PRINT 


230 


PRINT 


240 


PRINT 


250 


PRINT 


2E0 


PRINT 


270 


INPUT 


2S0 


PRINT 



"THIS IS fl PSYCHOLOGY TEST. ":PRINT 

"THERE ARE FIVE SHORT TESTS. EACH TEST WILL BE SOME" 

"DESIGN. YOU ARE TO MAKE Pi PICTURE OUT OF THE DESIGN. " 

"AFTER YOU DRAW THE PICTURE, YOU WILL ANSWER A QUESTION" 

"ON WHAT YOU DREW. AFTER THE FIVE TESTS ARE OVER, " 

"THE COMPUTER WILL MAKE AN ANALYSIS OF YOU. " : PRINT: PRINT 

"HIT -ENTER- TO BEGIN. . ." 5 : INPUT Z* 

"TEST #1" :PRINT 

TABC15)"X":PRINT TABC 14) "XXX" : PRINT TAB<:i4)"XXX" 

TABC15) "X" :PRINT:PRINT:PRINT 



: PRINT "THE DOT IN THE MIDDLE OF THE TEST BLOCK" 
"REPRESENTS IN YOUR PICTURE... 
"CD THE CENTRAL SUBJECT" 
"C2> THE RIGHT OR LEFT OF THE SUBJECT" 
A:CLS:PRINT "TEST #2":PRINT 

" :+.■:+:*:+:*^^::^■:*s^::^•:l|•::+:lf:^^::+:H■:*:■^:*^•:* + ^^::^■:**>^:* + ***H■:*H':' , 
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290 PRINT TAB<:5)"X";TftBC35)"X" 

300 PRINT TAEK4)"X" ;TAB<:36>"X" 

310 PRINT TAB<:3)"X";TAB<:37>"X" 

320 PRINT TAB<:2>"X";TAEK3S>"X" 

340 PRINTsPRINT 

360 PRINT TftBC2)"X";TftB<:3S)"X" 

370 PRINT TfiB<:3) n X";TfiBC37)"X" 

3S0 PRINT TABc:4>"X";TAB<:36}"X" 

390 PRINT TftB(5)"X";TPlBc:35)"X n 

400 PRINT " Hi**********************************" 

410 PRINT 

4">0 PRINT "IN YOUR PICTURE ORE THE FOUR CORNERS CONNECTED?" 

430 PRINT "Y OR N" ; : INPUT B*:IF B*="Y" THEN B=l ELSE B=0 

440 CLS5PRINT "TEST #3" 

450 PRINT 

4G0 FOR 1 = 1 TO 2: PRINT TABC45) 5 '" " :NEXT I 

470 PRINT TABC37)"" " 

480 FOR 1 = 1 TO 2: PRINT TABC37) ; "' " sNEXT I 

490 PRINT TABC29);" " 

500 FOR 1=1 TO 2: PRINT TABC29) 5 "'" sNEXT I 

510 PRINT TABC22);" " 

520 FOR 1=1 TO 2= PRINT TAB (21 );"'": NEXT I: PRINT 

540 PRINT "IN YOUR PICTURE DOES THE DESIGN REPRESENT STAIRS1 

550 PRINT "Y OR N" 5 : INPUT C*sIF C$="Y" THEN C=l ELSE C=0 

5E0 CLS: PRINT "TEST #4": PRINT 

5S0 FOR 1=1 TO 5: PRINT TABC45) S "' " :NEXT I 

590 PRINT TABC37);" " 

S00 FOR 1 = 1 TO 5:PRINT TABC37) ; "' " :NEXT l:PRINT 

S20 PRINT "THE SUBJECT OF YOUR PICTURE IS..." 

E30 PRINT "fl> AN ANIMAL OR PERSON " TAB C 35 > " (2) SOMETHING MECHANICAL"? 

640 INPUT DSCLS:PRINT "TEST #5" 

650 PRINT 

GG0 FOR 1=1 TO 10: PRINT TABC15);'" '" :NEXT I 

670 PRINT 

680 PRINT "HOW MANY TIMES IN YOUR PICTURE DID YOU DRAW ft LINE WHICH" 

690 PRINT "CROSSED BOTH PARALLEL LINES" ; s INPUT E:CLS 

700 PRINT "TESTS COMPLETE. " 

710 FOR 1=1 TO 500:NEXT I:CLS=PRINT TAB C20) 5 "PSYCHO ANALYSIS" : PRINT 

720 IF A=l THEN 750 

730 PRINT "YOU ARE NOT SELF-CENTERED, AND HAVE A " 

740 PRINT "GOOD SENSE OF DESIGN. " :GOTO 760 

750 PRINT "YOU ARE SELF-CENTERED, AND HAVE SELFISH TENDENCIES. " 

760 IF B=0 THEN 790 

770 PRINT "YOU ENJOY PEOPLE'S COMPANY, AND ARE SOCIAL-MINDfD. " 

780 GOTO 820 

790 PRINT "YOU PREFER TO BE ALONE AT TIMES, AND ARE NOT ft PARTY TYPE. 

820 IF C=l THEN 860 

830 PRINT "YOU ARE A NON-CONFORMIST, AND ENJOY DOING THINGS" 

840 PRINT "BECAUSE YOU LIKE THEM, NOT BECAUSE YOU ARE" 

850 PRINT "INFLUENCED BY OTHERS. " : GOTO 873 

860 PRINT "YOU ARE A CONFORMIST, AND YOU FOLLOW THE CROWD." 

870 PRINT 

880 IF D=2 THEN 910 

890 PRINT "YOU ARE NOT MECHANICAL-MINDED, BUT YOU ARE" 

900 PRINT "CONCERNED FOR OTHER LIVING THINGS. ": GOTO 330 

310 PRINT "YOU ARE MECHANICAL MINDED, AND ENJOY WORKING" 

920 PRINT "WITH INANIMATE OBJECTS." 

930 PRINT 

940 IF E<=^ THEN 970 ELSE IF E<=6 THEN 1000 ELSE IF E<=10 THEN 1030 

950 PRINT "WOW!! YOUR SEX DRIVE IS VERY, VERY, STRONG!!!!!" 

360 PRINT "THEY'D BETTER KEEP YOU IN A CAGE!" : GOTO 1050 

370 PRINT "YOU HAVE ft VERY WEAK SEX DRIVE, AND YOU PROBABLY" 

980 PRINT "DON'T ENJOY THE COMPANY OF MEMBERS OF THE OPPOSITt SEX." 

990 GOTO 1050 

1000 PRINT "YOUR SEX DRIVE IS MEDIUM LOW. YOU DON'T" 

1010 PRINT "MIND BEING WITH MEMBERS OF THE OPPOSITE SEX," 
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1020 PRINT "BUT YOU DON'T PREFER IT EITHER. " sGOTO 1050 
1030 PRINT "YOU HOVE ft MEDIUM HIGH SEX DRIVE, AND YOU" 
1040 PRINT "ENJOY BEING WITH MEMBERS OF THE OPPOSITE SEX. 
1050 PRINT 

10G0 PRINT "THIS IS THE END OF YOUR PSYCHO-ANALYSIS, " 
1070 END 
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Description 

A different type of dice game is simulated in this program. The object 
of the game is to knock off the following numbers: 1 2345678 9. 
This is done by rolling a pair of dice and totaling them. You then take 
that total and knock off as many numbers as you can until your total 
reaches zero. You then throw the dice again. If you knock off all the 
numbers exactly, then you win. If you roll a number that has been al- 
ready knocked off, you automatically lose! 



Variable list 

A( ) = Flag to see if number has been picked 

A() = Then number hasn't been picked 
A( ) = 1 Then number has been picked 
C = Number of locations left to knock off 
E = Error flag to determine if any moves are left 
I = Roll number 
L = Number to knock off 
W = Games won 
W1 = Games lost 



Sample run 

THIS IS THE GAME OF ROLL ON. 

DO YOU WANT THE INSTRUCTIONS? (1 FOR YES)?1 
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THE OBJECT OF THE GAME IS TO KNOCK OF THE FOLLOWING NUMBERS! 
123456 7 89 

THIS IS DONE BY ROLLING A PAIR OF DICE AND ADDING THE 
TOTALS, YOU THEN TAKE THAT TOTAL AND KNOCK OFF AS MANY 
NUMBERS AS YOU CAN UNTIL YOUR TOTAL REACHES ZERO. 
YOU THEN THROW THE DICE AGAIN. IF YOU KNOCK OFF 
ALL THE NUMBERS THEN YOU WIN. IF YOU DON'T KNOCK OFF 
ALL THE NUMBERS EXACTLY , THEN YOU LOSE! 



HERE IS ROLL 1 

YOUR ROLL TOTALS 6 

HERE IS THE BOARD: 12 3 4 5 6 7 

WHAT NUMBER DO YOU WANT TO KNOCK 0FF?5 

YOUR ROLL TOTALS 1 

HERE IS THE BOARD! 12 3 4 6 7 8 

WHAT NUMBER DO YOU WANT TO KNOCK OFF?l 

HERE IS ROLL 2 

YOUR ROLL TOTALS 7 

HERE IS THE BOARD! 2 3 4 6 7 8 9 

WHAT NUMBER DO YOU WANT TO KNOCK OFF?4 

YOUR ROLL TOTALS 3 

HERE IS THE BOARD! 2 3 6 7 8 9 

WHAT NUMBER DO YOU WANT TO KNOCK 0FF?3 

HERE IS ROLL 3 

YOUR ROLL TOTALS 8 

HERE IS THE BOARD! 2 6 7 8 9 

WHAT NUMBER DO YOU WANT TO KNOCK OFF?6 

YOUR ROLL TOTALS 2 

HERE IS THE BOARD! 2 7 8 9 

WHAT NUMBER DO YOU WANT TO KNOCK 0FF?2 

HERE IS ROLL 4 

YOUR ROLL TOTALS 3 

HERE IS THE BOARD! 7 8 9 



TOO BAD. YOU LOSE ! ! 



ANOTHER TRY? (1 FOR YES)?0 



GAMES WON! 
GAMES LOST! 1 



CZk I k I L I fa Qj Q Q Q Q Q 
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Program listing 
ROLLON 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2S0 
290 
300 
310 
320 
330 
340 
350 
3B0 
370 
3S0 
390 
400 
410 
420 
430 
440 
450 
4G0 
470 
490 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
530 
600 
510 
820 
630 
640 
650 
660 
670 
680 
690 
700 
710 



"THIS IS THE GAME OF ROLL 
"DO YOU WANT INSTRUCTION? 
fi*:CLS:IF A*="Y" THEN 150 
"THE OBJECT OF THIS GAME 



ON. " SPRINT 
CY=YES>"; 
ELBE 250 
IS TO KNOCK 



5 6 7 8 9" SPRINT 

DONE BY ROLLING A PAIR OF DICc. AND 

YOU THEN TAKE THAT TOTAL AND KNOCK 



AS YOU CAN UNTIL YOUR 
THROW THE DICE AGAIN. 
NUMBERS THEN YOU WIN. 
NUMBERS EXACTLY, THEN 

"; sINPUl 



DIM h(9) 
CLS 
PRINT 
PRINT 
INPUT 
PRINT- 
PRINT 

PRINT "1 2 3 4 
PRINT "THIS IS 
PRINT "TOTALS. 
PRINT "NUMBERS 
PRINT "YOU THEN 
PRINT "ALL THE 
PRINT "ALL THE 
PRINT 

PRINT "HIT -ENTER- TO BEGIN 
FOR 1=1 TO 9:ACI>=0:NEXT 1:1=0 
CLS: 1 = 1 + 1 SPRINT "HERE IS ROLL" 1 = PRINT 
X=INTC6*RNDC0'.>} + i:X=X+INTCE*RNDC0}} + l 
PRINT "YOUR ROLL TOTALS "X 
PRINT "HERE IS THE BOARD: "; 
FOR L=l TO 9: IF A(L)=1 THEN 320 ELSE 
NEXT L: PRINT: IF X>9 THEN 330 ELSE IF 
GOSUB 530: IF E=l THEN 450 
PRINT SPRINT "WHAT NUMBER DO YOU 
IF ACDOi THEN 370 
PRINT "THAT NUMBERS BEEN USED. " 
IF X>=L THEN 330 

PRINT "THAT NUMBER IS LESS THAN 
C=0:X=X-L:ACL)=1 

FOR L=l TO 9: IF ACL>=0 THEN 410 ELSE 
NEXT L:IF C=9 THEN 420 ELSE IF X=0 THtN 
PRINT5PRINT 

PRINT "***** CONGRATULATIONS, YOU WON 
PRINT: PRINT :W=W+i :GOTO 480 
PRINT:PRINT 

PRINT "TOO BAD, YOU LOSE I !!": PRINT 
PRINTsWl=Wl+l 

PRINT "ANOTHER TRY? CY=YES) ";: INPUT A$ 
IF A*="Y" THEN 250 
CLSsPRINT "GAMES WON: " ;W 



OFF THE 



ALLOWING NUMBERS: 



ADDING 
OFF AS 



THE" 
MANY' 



TOTAL REACHES ZERO. 
IF YOU KNOCK OFF" 
IF YOU DON' T KNOCK 
YOU LOSE! " 



OFF" 



PRINT 
ACX)=£ 



THEN 340 



WANT TO KNOCK OFF' 



;GOTO 340 



INPUT L 



YOUR TOTAL. " : GOTO 340 



C= 



>1 
270 



ELSE 230 



:+::+: K-: :+::+:' 



PRINT "GAMES LOST 
GOTO 1220 
E=0sIF X>2 THEN 5! 
E=l :RETURN 



IF 
IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



X<>3 THEN 570 
AC2)=1 THEN 540 
X<>4 THEN 530 
AC3>=1 THEN 540 
X<>5 THEN 620 
A(3)=l THEN 610 
AC4>=1 THEN 540 
X<>6 THEN 660 



IWI 



ELSE IF A(l)=l THEN 540 ELSE RETURN 



ELSE IF A(:l) = 



THEN 540 ELSE RETURN 



SE 
SE 



5) = 1 



X<>7 
AC 

AC 

AC 



THEN 650 
THEN 650 
THEN 540 
HEN 720 



ELSE 
ELSE 
ELSE 



IF 
IF 

IF 

IF 
IF 



AC 2) = 
A C 1 ) = 



) = 1 



THEN 
THEN 

THEN 
THEN 
THEN 



510 

540 

640 
650 
540 



ELSE RE' 



"URN 
fURN 



k! = l 

.) = 1 

:.) = ! 

.) = ! 

))=1 



THEN 
THEN 
THEN 
THEM 
THEN 



700 
690 
700 
710 

540 



ELSE 

ELSE 
ELSE 
ELSE 

CI L~ wC 



SE IF 



A C 2 ) = 1 

RETURN 
RETURN 
IF ACB)=1 

IF AC2)=1 



'HEN 6? 



THtN 
THEN 



540 



ELSE 
ELSE 



ELSE 
ELSE 



RETURN 
RETURN 
RETURN 



fURN 

fURN 
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720 


IF 


X<>8 THEN 790 










730 


IF 


fit 


1)=1 THEN 


770 


ELSE 


IF fi(2)=l 


THEN 750 


740 


IF 


fit 


5)=1 THEN 


750 


ELSE 


RETURN 




750 


IF 


fit 


4) = 1 THEN 


760 


ELSE 


IF fi«3)=l 


THEN 760 ELSE RETURN 


7B0 


IF 


A< 


7)=1 THEN 


770 


ELSE 


RETURN 




770 


IF 


fit 


2)=1 THEN 


780 


ELSE 


IF fi(E)=l 


THEN 780 ELSE RETURN 


780 


IF 


fit 


5)=1 THEN 


540 


ELSE 


IF flt:3) = l 


THEN 540 ELSE RETURN 


790 


IF 


X<>9 THEN 890 








S00 


IF 


fit 


1)=1 THEN 


830 


ELSE 


IF fit 


8) =11 THEN 810 ELSE RETURN 


S10 


IF 


fit 


B)=l THEN 


820 


ELSE 


IF fit 


2) = 1 


THEN 820 ELSE RETURN 


820 


IF 


fit 


3)=1 THEN 


830 


ELSE 


IF fit 


5) = 1 


THEN 840 ELSE RETURN 


830 


IF 


fit 


5)=1 THEN 


S40 


ELSE 


IF fit 


4) = 1 


THEN 840 ELSE RETURN 


840 


IF 


fit 


3)=1 THEN 


850 


ELSE 


IF fit 


6) = 1 


THEN 850 ELSE RETURN 


850 


IF 


fit 


2)=1 THEN 


540 


ELSE 


IF fit 


7) = 1 


THEN 540 ELSE RETURN 


860 


IF 


X<> 10 THEN 9 


50 








870 


IF 


fit 


1)=1 THEN 


910 


ELSE 


IF fit 


9) = 1 


THEN 880 ELSE RETURN 


880 


IF 


fit 


2)=1 THEN 


890 


ELSE 


IF fit 


7) = 1 


THEN 890 ELSE RETURN 


890 


IF 


fit 


3)=1 THEN 


900 


ELSE 


IF fit 


6) = 1 


THEN 900 ELSE RETURN 


900 


IF 


fit 


4> = 1 THEN 


910 


ELSE 


IF fit 


5) = 1 


THEN 910 ELSE RETURN 


910 


IF 


fit 


3)=1 THEN 


930 


ELSE 


IF fit 


7) = 1 


THEN 920 ELSE RETURN 


920 


IF 


fit 


5)=1 THEN 


930 


ELSE 


IF fit 


2) = 1 


THEN 930 ELSE RETURN 


930 


IF 


fit 


4)=1 THEN 


940 


ELSE 


IF fit 


G) = l 


THEN 940 ELSE RETURN 


940 


IF 


fit 


2)=1 THEN 


540 


ELSE 


IF fit 


S) = l 


THEN 540 ELSE RETURN 


950 


IF 


XOll THEN 1070 








960 


IF 


fi<2)=l THEN 


1020 ELSE 


IF fi(9)=: 


L THEN 970 ELSE RETURN 


970 


IF 


ftt:S) = l THEN 


980 


ELSE 


IF fi(l)=l 


THEN 980 ELSE RETURN 


980 


IF 


flt:3) = l THEN 


990 


ELSE 


IF fl(6)=l 


THEN 990 ELSE RETURN 


990 


IF 


fi(l)=l THEN 


1010 ELSE 


IF fi(3)=] 


L THEN 1010 


1000 


IF 


fiC5)=l THEN 


1010 ELSE RETURN 




1010 


IF 


fi(5)=l THEN 


1020 ELSE IF fi<4)= 


=1 THEN 1020 ELSE RETURN 


1020 


IF 


fiC7)=l THEN 


1050 ELSE IF fi03> = 


=1 THEN 1040 


1030 


IF 


0(1 )=1 THEN 


1040 ELSE RETURN 




1040 


IF 


fi(4)=l THEN 


1050 ELSE RETURN 




1050 


IF 


fi(3>=l THEN 


1060 ELSE IF fi<S> = 


=1 THEN 1060 ELSE RETURN 


1060 


IF 


fH5)=l THEN 


540 ELSE 


IF fi(6)=1 


. THEN 540 ELSE RETURN 


1070 


IF 


FK3) = 1 THEN 


1150 ELSE IF flC9)= 


=1 THEN 1080 ELSE RETURN 


1080 


IF 


fit:8) = l THEN 


1090 ELSE IF fi(l)= 


=1 THEN 1090 ELSE RETURN 


1090 


IF 


fiC2)=l THEN 


1100 ELSE IF fi(7)= 


=1 THEN 1100 ELSE RETURN 


1100 


IF 


fiC6)=l THEN 


1120 ELSE IF fl<2)= 


= 1 THEN 1120 


1110 


IF 


fi(l)=l THEN 


112 


:0 ELSE RETURN 




1120 


IF 


flC6)=l THEN 


1140 ELSE IF 0(2)= 


= 1 THEN 1140 


1130 


IF 


ftt:i) = l THEN 


1140 ELSE RETURN 




1140 


IF 


flC4)=l THEN 


1150 ELSE IF fi(5)= 


=1 THEN 1150 ELSE RETURN 


1150 


IF 


fiC5)=l THEN 


1190 ELSE IF fl(7)= 


•1 THEN 1160 ELSE RETURN 


1160 


IF 


fi(4)=l THEN 


1180 ELSE IF 0(2)= 


1 THEN 1180 


1170 


IF 


fit:i> = l THEN 


HE 


ELSE RETURN 




1180 


IF 


flt:6) = l THEN 


1190 ELSE IF fl(l)= 


1 THEN 1190 ELSE RETURN 


1190 


IF 


PK9> = 1 THEN 


1210 ELSE IF flt:i) = 


1 THEN 1210 


1200 


IF 


ft(2)=l THEN 


1210 ELSE RETURN 




1210 


IF 


flC4>=l THEN 


540 


ELSE 


IF fi(S)=l 


THEN 540 ELSE RETURN 


1220 


END 
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PEDQ 
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Description 

This is a fast and challenging game of numbers. To play, we select a 
single-digit scoring number between 2 and 9. Let's use 4 as an example. 
Then any number with a 4 in it (for example, 14, 24) would score a 
point. So would 31 and 28 because 3 + 1 = 4, and 8/2 = 4, and so on. 

To begin the game you pick any number that is not a scoring num- 
ber. The computer then obtains a new number by taking your old 
number and adding, subtracting, multiplying, or dividing the digits in 
any order. The computer can also double, square, square root, or halve 
the number. 

The number 1 is wild, and when it appears as a move the next per- 
son may pick any number he wishes, even a scoring number. Entering 
a zero on your move gives the computer a point, and the computer then 
will tell you a move to make. 

A number must be an integer never used before in the game you're 
playing. It also must be less than 1 times the scoring number. The last 
person to move gets a point. 

Here is an explanation of how to play a sample game. The scoring 
number is nine. 

6/2 = 3 

3 t 2 = 9 one point for scoring number 9 

9 t 2 = 81 two points for 1 +8 = 9 [vTTT = 9] 

8X1=8 multiplied by digits 

8 t 2 = 64 squared it 

64/2 = 32 halved it 
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3 + 2 = 5 add digits 

5X2 = 10 doubled it 

10 X 2 = 20 doubled it 

20 X 2 = 40 doubled it 

40 X 2 = 80 doubled it 

No moves left. Last person to move gets the final point. 



Variable list 

A = Number of the computation to perform 
C( ) = A list of numbers picked 
E = Error flag 

E = No error 

E = 1 Error 

L = Counter for numbers, picked 

N = Number picked 
N1 = Previous move 
N3 = Move for player 

O = Ones position of current number 
01 = Ones position of previous number 

P = Points for number by player 
P1 = Points for number by computer 

S = Scoring number 

T = Tenth position of current number 
T1 = Tenth position of previous number 

X = Points for player 

Y = Points for computer 



Sample run 

THIS IS A GAME OF SKEED00DLE. 

DO YOU WANT THE INSTRUCTIONS? (1 FOR YES)?1 

TO PLAY » WE SELECT A SINGLE-DIGIT SCORING NUMBER. LET'S 

USE 4 AS AN EXAMPLE. THEN ANY NUMBER WITH A 4 IN IT 

<IE. 14.24) WOULD SCORE A POINT. SO WOULD 31 AND 28 
BECAUSE 3+1=4, AND 8/2=4, AND SO ON. 

TO BEGIN THE GAME YOU PICK ANY NUMBER THAT IS NOT A SCORING 
NUMBER. I THEN GET A NEW NUMBER BY TAKING YOUR OLD ONE 
AND ADDING, SUBTRACTING, MULTIPLYING, OR DIVIDING THE DIGITS 
IN ANY ORDER. I CAN ALSO DOUBLE, SQUARE, SQUARE ROOT, OR 
HALVE THE NUMBER. 

THE NUMBER 1 IS WILD AND THE NEXT PERSON MAY PICK ANY NUMBER 
HE WISHES, EVEN A SCORING NUMBER. ENTERING A ZERO ON YOUR 
MOVE GIVES THE COMPUTER A POINT AND IT WILL TELL YOU A MOVE 
TO MAKE. 
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A NUMBER MUST BE AN INTEGER NEVER USED BEFORE IT THE GAME 
YOUR PLAYING. IT MUST ALSO BE LESS THAN TEN TIMES THE 
SCORING NUMBER. THE LAST PERSON TO MOVE GETS A POINT. 

GIVE ME A SINGLE-DIGIT SCORING NUMBERT7 

START OFF WITH THE FIRST NUMBERT13 

MY MOVE IS 26 

YOUR M0VE?3 

MY MOVE IS 6 

YOUR M0VET12 

MY MOVE IS 24 

YOUR M0VET2 

MY MOVE IS 1 

YOUR M0VE?49 

1 POINT(S) FOR YOU, 
MY MOVE IS 7 

1 POINT(S) FOR ME. 
YOUR M0VE?14 

1 POINT(S) FOR YOU. 
MY MOVE IS 28 
YOUR M0VE?4 
MY MOVE IS 16 

1 POINT(S) FOR ME. 
YOUR M0VE?8 
MY MOVE IS 64 
YOUR MOVETIO 
MY MOVE IS 5 
YOUR M0VE?25 

1 POINT(S) FOR YOU, 
MY MOVE IS 50 
NO MOVES LEFT. 
A FINAL POINT FOR ME 

A TIE! 3 3 

ANOTHER GAME? (1 FOR YES)?0 



■""■■■ *~HMH *~Hfli ""^mI I mugifl I-b^J i-g^^ ^"^hI 1^^^^ *-MH 



Program listing 
SKEEDO 

100 DIM CC50) 

110 CLS:PRINT "THIS IS A GAME OF SKEEDOODLE. " : PRINT 

120 PRINT "DO YOU WONT INSTRUCTIONS? C Y=YES) " 5 : INPUT A$ 

130 CLSsIF A*="Y" THEN 1270 

140 PRINT "GIVE ME A SINGLE-DIGIT SCORING NUMBER" 5 : INPUT S 

150 L=l:FOR 1=1 TO 50: CC I )=0:NEXT I 

1B0 X=0:Y=0 

170 IF INKS) OS THEN 1S0 ELSE IF S<3 THEN 1S0 ELSE IF S<10 THEN 200 

1S0 PRINT "THE SCORING NUMBER MUST BE FROM 3 TO S. " 

190 PRINTssGOTO 140 

200 PRINTsPRINT "START OFF WITH THE FIRST NUMBER"; 

210 INPUT N:GOSUB 1220: IF E=l THEN 230 

220 GOSUB 10S0:IF P=0 THEN 250 

230 PRINT "STARTING NUMBER CAN'T BE SCORING POINT AND" 

240 PRINT "MUST BE AN INTEGER BEWEEN 1 AND" ;S*10: GOTO 200 

250 CCL)=NsL=L+l 
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2E0 Nl=N:ft=0:Pl=0 

270 IF NIOi THEN 310 ELSE N=N+l:IF N>S*10 THEM 290 ELSE GOSUB 1220 

280 IF E=l THEN 270 ELSE GOSUB 1080: IF P=0 THEN 270 ELSE P1=P:N2=N:G0T0 G20 

290 N=N-l:IF N=l THEN S00 ELSE GOSUB 1220: IF E=l THEN 290 

300 GOSUB 1080: P1=0:N2=N: GOTO 620 

310 T1=INTCN/10) :O1=N-CT1*10) 

320 N=Tl+Ol: GOSUB i220:IF E=l THEN 350 

330 GOSUB 10S0:IF P<P1 THEN 350 ELSE fl=l:Pl=P 

340 N2=N 

350 N=fiBS<T 1-01): GOSUB 1220: IF E=l THEN 3S0 

360 GOSUB 10S0:IF P<P1 THEN 380 ELSE A=2:P1=P 

370 N2=N 

380 N=T 1*01: GOSUB 1220: IF E=l THEN 410 

390 GOSUB 10S0:IF P<P1 THEN 410 ELSE A=3:P1=P 

400 N2=N 

410 IF 01=0 THEN 440 ELSE IF N=Tl/Oi :GOSUB 1220: IF E=l THEN 440 

420 GOSUB 10S0:IF P<P1 THEN 440 ELSE ft=4:Pl=P 

430 N2=N 

440 IF T1=0 THEN 470 ELSE N=01/T1 :GOSUB 1220: IF E=l THEN 470 

450 GOSUB 1080: IF P<P1 THEN 470 ELSE fl=5:Pl=P 

460 N2=N 

470 N=Nl-t-2: GOSUB 1220: IF E=l THEN 500 

480 GOSUB 1080: IF P<P1 THEN 500 ELSE ft=G:Pl=P 

490 N2=N 

500 N=2*Nl: GOSUB 1220: IF E=l THEN 530 

510 GOSUB 1080: IF P<P1 THEN 530 ELSE A=7:P1=P 

520 N2=N 

530 N=SQR<N1): GOSUB 1220: IF E=l THEN 5E0 

540 GOSUB 1080: IF P<P1 THEN 560 ELSE ft=S:Pl=P 

550 N2=N 

560 N=N1/2:G0SUB 1220: IF E=l THEN 590 

570 GOSUB 1080: IF P<P1 THEN 590 ELSE ft=9:Pl=P 

580 N2=N 

590 IF GO0 THEN 620 

600 PRINT "NO MOVES LEFT. " 

610 PRINT "ft FINftL POINT FOR YOU !": X=X+1 : GOTO 980 

620 N=N2:CCL)=N:L=L+1 

630 PRINT "MY MOVE 15" ;N 

640 IF P1=0 THEN 660 ELSE Y=Y+P1 

650 PRINT Pi; "POINT <S) FOR ME." 

660 N1=N:T1 = INT<N/10):O1=N-<:T1*10> 

670 N=T1+01:G0SUB 1220: IF EOl THEN 790 

680 N=fiBSCT 1-01): GOSUB 1220:IF EOl THEN 790 

690 N=T1 +01: GOSUB 1220: IF EOl THEN 790 

700 IF 01=0 THEN 710 ELSE N=T1/01 :GOSUB 1220: IF EOl THEN 790 

710 IF T1=0 THEN 720 ELSE N=01/T1 :GOSUB 1220: IF EOl THEN 790 

720 N=Nlt-2: GOSUB 1220: IF EOl THEN 790 

730 N=2*Nl: GOSUB 1220: IF EOl THEN 790 

740 N=SQRCNi): GOSUB 1220: IF EOl THEN 790 

750 N=N1/2:G0SUB 1220: IF EOl THEN 790 

760 IF Nl=l THEN 790 

770 PRINT "NO MOVES LEFT. ":PRINT "R FINfiL POINT FOR ME":Y=Y+1 

780 GOTO 980 

790 N3=N 

800 PRINT "YOUR MOVE" ;: INPUT N:IF NO0 THEN 820 

810 PRINT "YOUR MOVE" ;N3:N=N3: Y=Y+1 

820 GOSUB 1220: IF E=l THEN 930 ELSE IF N2=l THEN 940 

330 T= I NT C N2/ 1 ) : 0=N2- (. T* 1 ) 

840 IF T+0=N THEN 940 

850 IF OBSCT-0)=N THEN 940 

860 IF 0=0 THEN 870 ELSE IF T/0=N THEN 940 

870 IF T=0 THEN 880 ELSE IF 0/T=N THEN 940 

880 IF T*0=N THEN 940 

890 IF N2+2=N THEN 940 

900 IF 2*N2=N THEN 940 

910 IF SQRCN2)=N THEN 940 

920 IF N2/2=N THEN 940 
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930 PRINT "ILLEGAL MOVE. ":GOTO S00 

940 GOSUB 1080: IF P=0 THEN 370 

950 PRINT P; "POINT (IS) FOR YOU." 

950 X=X+P 

970 C<:L)=N:L=L+1:G0T0 2E0 

9S0 PRINT: IF Y> X THEN 1010 

990 IF X=Y THEN 1030 

1000 PRINT "YOU WON", X ; Y : Xi=Xl + i : GOTO 1040 

1010 PRINT "I WON", Y-X 

1020 Yl=Yl+lsGOTO 1040 

1030 PRINT "PI TIE!", X;Y 

1040 PRINT: PRINT "ANOTHER GAME? CY=YES>"; 

1050 INPUT A$:CLS:IF A*="Y" THEN 140 

10E0 PRINT "TOTAL GAMES": PRINT 

1070 PRINT "YOU";Xl, "ME"",Yl:PRINT:GOTO 1440 

10S0 T=INT(N/10) :O=N-CT*10> : P=0 

1090 IF T=0 THEN 1190 

1100 IF T+OOS THEN 1110 ELSE P=P+1 

1110 IF ABS(T-0)OS THEN 1120 ELSE P=P+1 

1120 IF T*OOS THEN 1130 ELSE P=P+1 

1130 IF 0=0 THEN 1140 ELSE IF T/OOS THEN 1140 ELSE P=P+1 

1140 IF T=0 THEN 1150 ELSE IF 0/TOS THEN 1150 ELSE P=P+1 

1150 IF N*NOS THEN 11G0 ELSE P=P+1 

11G0 IF 2*NOS THEN 1170 ELSE P=P+1 

1170 IF SQRCN)OS THEN 1130 ELSE P=P+1 

11S0 IF N/2 OS THEN 1190 ELSE P=P+1 

1190 IF TOS THEN 1200 ELSE P=P+1 

1200 IF DOS THEN 1210 ELSE P=P+1 

1210 RETURN 

1220 E=0!FOR 1 = 1 TO L:IF CCDON THEN 1230 ELSE E=l 

1230 NEXT is IF N=INTCN) THEN 1240 ELSE E=l 

1240 IF N>0 THEN 1250 ELSE E=l 

1250 IF N<=S*10 THEN 1260 ELSE E=l 

12E0 RETURN 

1270 PRINT "TO PLAY, WE SELECT A SINGLE-DIGIT SCORING NUMBER. LET'S" 

12S0 PRINT "USE 4 AS AN EXAMPLE. THEN ANY NUMBER WITH A 4 IN IT" 

1290 PRINT "(IE. 14,24) WOULD SCORE A POINT. SO WOULD 31 AND 28" 

1300 PRINT "BECAUSE 3+1=4, AND 8/2=4, AND SO ON. ": PRINT 

1310 PRINT "TO BEGIN THE GAME YOU PICK ANY NUMBER THAT IS NOT A SCORING" 

1320 PRINT "NUMBER. I THEN GET A NEW NUMBER BY TAKING YOUR OLD ONE" 

1330 PRINT "AND ADDING , SUBTRACTING, MULTIPLYING, OR DIVIDING THE DIGITS" 

1340 PRINT "IN ANY ORDER. I CAN ALSO DOUBLE, SQUARE, SQUARE ROOT, OR" 

1350 PRINT "HALVE THE NUMBER. " 

13E0 PRINT: PRINT "HIT -ENTER- TO CONTINUE. ..";: INPUT A:CLS 

1370 PRINT "THE NUMBER 1 IS WILD AND THE NEXT PERSON MAY PICK ANY NUMBER" 

1380 PRINT "HE WISHES, EVEN A SCORING NUMBER. ENTERING A ZERO ON YOUR" 

1390 PRINT "MOVE GIVES THE COMPUTER A POINT AND IT WILL TELL YOU A MOVE" 

1400 PRINT "TO MAKE. "SPRINT 

1410 PRINT "A NUMBER MUST BE AN INTEGER NEVER USED BEFORE IN THE GAME" 

1420 PRINT "YOU' RE PLAYING. IT MUST ALSO BE LESS THAN TEN TIMES THE" 

1430 PRINT "SCORING NUMBER. THE LAST PERSON TO MOVE GETS A POINT. "sGOTO 140 

1440 END 
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Description 

Imagine yourself on the S.S. Enterprise as Captain Kirk! This game 
simulates in striking detail a space battle using the characters from Gene 
Roddenberry's TV series. An attack by the Klingons on the Enterprise 
begins the action in the game. You are given 5 options to use during 
the battle. One of these options (3) is a status report. This report deter- 
mines new angles to use when firing your weaponry. 

To figure out the angle of attack use these formulas along with the 
status report: 

Enterprise angle + Enterprise turn = new Enterprise angle 
Klingon angle + Klingon turn = new Klingon angle 

To determine the angle to shoot at, you take your angle (Enter- 
prise) plus the Klingon's angle. It is important to determine new angles 
before every firing so that you can shoot the enemy down. 

At every option, a new angle of movement is calculated. If either of 
you changes direction, you should get a status report to find out new 
angles of attack. Obviously, a turn of zero degrees will never change 
your current angle. 

Distance is important only if you blow yourself up. Warps make no 
difference except that it affects the distance apart from the Klingons. 
Of course, when your life support reaches zero, you lose! Good hunting! 
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Variable list 

A1 = Angle of Enterprise 
A2 = Angle of Klingons 
A3 = Turn of Enterprise 
A4 = Turn of Klingons 

C= Random number generator variable 

D = Distance of Enterprise to Klingons 
H1 = Amount of damage done to shields of Klingons after a hit 
H2 = Amount of damage done to shields of Enterprise after a hit 

11 = Impulse of Enterprise 

12 = Impulse of Klingons 

L1 = Life support of Enterprise 

L2 = Life support of Klingons 

PI = Warp drive of Enterprise 

P2 = Warp drive of Klingons 
Q1 = Warp speed of Enterprise 
Q2 = Warp speed of Klingons 

51 = Shields of Enterprise 

52 = Shields of Klingons 

W1 = Weaponry of Enterprise 
W2 = Weaponry of Klingons 

X = Distance being traveled by Klingons 

Y = Distance being traveled by Enterprise 



Sample run 

THIS IS A STAR TREK GAME 



4 - 



FIRE PHASERS 
FIRE PHOTON TORPEDOS 
STATUS REPORT 
CHANGE MOVEMENT 
SELF DESTRUCT 



WHAT IS YOUR 0PTI0N?3 
***STATUS REPORT*** 





ENTERPRISE 


KLINGONS 




SPEED (WARPS) 


3 


3 




ANGLE 


37 


-143 




TURN 










LIFE SUPPORT 


100 7. 


100 


% 


WARP DRIVE 


100 % 


100 


% 


IMPULSE 


100 7. 


100 


7. 


SHIELDS 


100 7. 


100 


7. 


WEAPONRY 


100 % 


100 


7. 



MR. SCOTT REPORTS KLINGONS AT 100000 K.M. 
CHECKOV REPORTS KLINGONS HAVE CHANGED DIRECTION. 
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WHAT IS YOUR 0PTI0N?2 

WHAT ANGLE DO YOU WANT TO SHOOT ATT-106 

SULU REPORT A MISS! 



***WARNING***KLINGONS HAVE FIRED PHOTON TORPEDOS 
SPOCK REPORTS YOU SUFFER FROM A DIRECT HIT! 



WHAT IS YOUR 0PTI0NT3 



***STATUS 


REPORT*** 








ENTERPRISE 


KLINGONS 




SPEED (WARPS) 


3 


3 




ANGLE 


17 


3 




TURN 





-10 




LIFE SUPPORT 


100 % 


100 


7. 


WARP DRIVE 


X 


100 


7. 


IMPULSE 


100 7. 


100 


X 


SHIELDS 


91 % 


100 




WEAPONRY 


97 % 


100 


% 


MR. SCOTT REPC 


]RTS KLINGONS 


5 AT 100048 K, 


,M. 



***WARNING***KLINGONS HAVE FIRED PHOTON TORPEDOS 
SPOCK REPORTS YOU SUFFER FROM A DIRECT HIT! 

WHAT IS YOUR 0PTI0NT2 

WHAT ANGLE DO YOU WANT TO SHOOT AT?24 

MR. SULU REPORTS DIRECT HIT!! 

***WARNING***KLINGONS HAVE FIRED PHASER'S, 
SENSORS SHOW KLINGONS SHOT WIDE! 

WHAT IS YOUR 0PTI0NT2 

WHAT ANGLE DO YOU WANT TO SHOOT AT?0 

***DIRECT HIT*** 

CHECKOV REPORTS KLINGONS HAVE CHANGED DIRECTION. 



WHAT IS YOUR 0PTI0NT3 

***STATUS REPORT*** 
ENTERPRISE 
SPEED (WARPS) 3 
ANGLE 11 

TURN 

LIFE SUPPORT 100 % 
WARP DRIVE 7. 

IMPULSE 100 % 

SHIELDS 82 % 

WEAPONRY 94 % 



KLINGONS 

i 

14 

100 % 
100 % 
100 % 
82 X 
94 X 



MR. SCOTT REPORTS KLINGONS AT 102604 K.M. 

***WARNING***KLINGONS HAVE FIRED PHOTON TORPEDOS 
**DIRECT HIT** 

WHAT IS YOUR 0PTI0NT2 

WHAT ANGLE DO YOU WANT TO SHOOT AT?29 

***DIRECT HIT*** 

CHECKOV REPORTS KLINGONS HAVE CHANGED DIRECTION. 

WHAT IS YOUR 0PTI0NT2 

WHAT ANGLE DO YOU WANT TO SHOOT AT?61 

SULU REPORT A MISS! 

***WARNING***KLINGONS HAVE FIRED PHOTON TORPEDOS 
SULU REPORTS A HIT ON THE ENTERPRISE! 
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WHAT IS YOUR 0PTI0NT3 

***STATUS REPORT*** 





ENTERPRISE 




KLINGONS 


SPEED (WARPS) 




3 






':> 


ANGLE 




15 






*y 


TURN 











-5 


LIFE SUPPORT 




100 % 






100 % 


WARP DRIVE 




"/. 






100 ■/. 


IMPULSE 




100 % 






100 % 


SHIELDS 




64 % 






73 X 


WEAPONRY 




88 % 






91 % 


MR. SCOTT REP( 


3RTS 


KLINGONS 


AT 


1101 


28 K.M. 



***WARNING***KLINGONS HAVE FIRED PHOTON TORPEDOS 
SULU REPORTS A HIT ON THE ENTERPRISE! 

WHAT IS YOUR OPTION'S 

KLINGONS TOO FAR AWAY!! 

YOU LOSE. MR. SCOTT f SULU* CHECKOVr SPOCK > AND 

UHURA REPORT THAT YOU ARE AN IDIOT!! 

READY. 



QOQOOOQOOQ 

Program listing 

STARTRSX ^ 

100 Kl=3. 14169/130 

1 10 Ql=3:Q2=3:D=100000:Pl=100:P2=1005 11=100 

l--'0 PH = INTC1S0*RNDC0) )-90:fi2=-dS0-fll> 

1T0 r-'=nl00:Ll = 100:L2=100:Sl = 100:S2=i00 5Wl = 100 = W2=100 

140 CLS:PRINT "THIS IB PI STAR TREK GOME" :PRINT 

150 PRINT "1 - FIRE PHASERS" : PRINT "2 - FIRE PHOTON TORPEDOES" 

160 PRINT "y. - STATUS REPORT" : PRINT "4 - CHANGE MOVEMENT" 

170 PRINT "5 - SELF DESTRUCT" 

180 PRINT: PRINT "WHAT IS YOUR OPTION" ;: INPUT 09 

190 ON 09 GOTO 220,310,460,570,600 

200 PRINT "WHAT?":GOTO 1S0 

•-'10 IF A<1 THEN 180 ELSE ON A GOTO 220, 310, ,460 

^•-■0 GOSUB 1060: IF ABSCA-A1 > > 10 THEN 360 ELSE IF D> 150000 THEN 420 

230 C=INT(3*RNDC0)) + l:Hl=2*INT(:<:i50000-D:) 730000) 

240 ON C GOTO 250,260,270 

•-■50 PRINT "PHASERS SCORE A DIRECT HIT!!! GOOD SHOOTING i :GOTO 620 

260 PRINT "CHECKOV REPORTS A DIRECT HIT BY PHASERS! " :GOTO 620 

-'70 C=INT<'3*INTC0:)) + l:ON C GOTO 280,290,300 

^80 PRINT "MR. SULU REPORTS DIRECT HIT!!!":GOTO 620 

•-'90 PRINT "*** DIRECT HIT ***":GOTO 620 

^00 PRINT "SPOCK REPORTS DIRECT HIT ON KLINGON SHIP!":GOTO 620 

7110 GOSUB 1060: IF ABSCA-A1 > > 25 THEN 440 ELSE IF D) 300000 THEN 430 

^20 C=INTC3*RND(:0)) + l:Hi = INT(:C300000-D)/50000) 

^0 ON C GOTO 340,350,270 

-40 PRINT "PHOTON TORPEDOES SCORE DIRECT HIT!":GOTO 620 

^50. PRINT "SULU REPORTS DIRECT HIT BY PHOTON TORPEDOES" : GOTO 620 

360 C=INTC2*RNDC0))+l:Hl=0:ON C GOTO 370,380 

^.70 PRINT "CHECKOV REPORTS CLEAN MISS BY PHASERS! " :GOTO 620 

•^80 C=TNTf4*RND<:0>:>+l:ON C GOTO 390,410,400 

^90 PRINT "YOUR SHOT IS WIDE!":GOTO 620 

400 PRINT "SPOCK REPORTS A CLEAN MISS":GOTO 620 

410 PRINT "SULU REPORTS A MISS":GOTO 620 

420 PRINT "YOU ARE OUT OF PHASER RANGE": GOTO 620 
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430 PRINT "YOU ARE OUT OF PHOTON TORPEDO RANGE" :GOTO 620 

440 C=INTC3*RND«Z))) + i:Hl=0:IF C=l THEN 450 ELSE 380 

450 PRINT "CHECKOV REPORTS A MISS BY PHOTON TORPEDOES ! " : GOTO S20 

4E0 CLSsPRINT TABC5) "*** STATUS REPORT ***" 

470 PRINT TAB<:i5)"ENTERPRISE !, TAB<:30} ,, KLINGONS" 

4S0 PRINT "SPEED CWARPS) "TAB<20> Q1TABC35) 02 

490 PRINT "ANGLE"TAB<:20>A1TAB<:35>A2 

500 PRINT "TURN"TAB(:20)A3TAB<35)A4 

510 PRINT "LIFE SUPPORT"TAB<:20> LI "y."TAB<:35)L2"y." 

520 PRINT "WARP DRIVE"TOBt:20)Pi""/."TABC35)P2"-/." 

530 PRINT "IMPULSE"TAB!:20)Ii"y."TABC35)I2"-/." 

540 PRINT "SHIELDS"TAB(:20)Si"-/."TAB(35)S2"y." 

550 PRINT ,, WEfiPONRY"TflB<:20)Wi"-/."TAB<:35>W2"y." 

5E0 PRINT "MR. SPOOK REPORTS KLINGONS AT"D"K. M. " :GOTO E20 

570 PRINT "WHAT ANGLE DO YOU WANT TO TURN" ;: INPUT A3: IF W2<ABSCA3) THEN 570 

5S0 PRINT "WHAT WARP FACTOR DO YOU WANT TO MOVE TO";: INPUT Qi 

590 IF QDINT CW1/10) THEN 5S0 ELSE 520 

E00 IF D<50000 THEN E10 ELSE PRINT "KLINGONS TOO FAR AWAY! ! ! " :GOTO 990 

E10 PRINT "KLINGONS ARE DESTROYED BUT SO ARE YOU!":GOTO 1100 

E20 PRINT:C=INTC4*RNDC0)>+l:ON C GOTO 640,740,780,800 

640 PRINT "*** WARNING *** KLINGONS HAVE FIRED PHASERS!" 

650 IF D> 200000 THEN 710 ELSE IF RNDC0)>„6 THEN 710 

660 C=INTC100*RND«:0)>+l:IF C> W2 THEN 710 ELSE H2=INT<2*( 150000-D) Z30000) 

670 C=INT«3*RNDC0>)+l:ON C GOTO 600,690,700 

680 PRINT "** DIRECT HIT **":GOTO 320 

690 PRINT "SPOCK REPORTS YOU SUFFER FROM A DIRECT HIT!":GOTO 820 

700 PRINT "SULU REPORTS A HIT ON THE ENTERPRISE !" :GOTO 820 

710 C=INTC2*RNDC0:)) + l:H2=0sON C GOTO 720,730 

720 PRINT "CHECKOV REPORTS A MISS. ":G0TO 820 

730 PRINT "SENSORS SHOW KLINGONS SHOT WIDE!":GOTO 820 

740 PRINT "*** WARNING *** KLINGONS HAVE FIRED PHOTON TORPEDOES" 

750 IF D> 300000 THEN 710 ELSE IF RNDC0)>.85 THEN 710 

7E0 C=INT<:i00*RNDC0)) :IF C> W2 THEN 710 ELSE H2=INTC (300000-D) Z50000) 

770 GOTO E70 

780 A4=INT(<:P2/2)*RNDC0)-P2/4) :Q2=INTC CP2/10)*RNDC0) ) 

790 PRINT "CHECKOV REPORTS KLINGONS HAVE CHANGED DIRECTION. " :GOTO 820 

S00 IF P2>30 THEN E20 ELSE PRINT "KLINGONS HAVE SELF DESTRUCTED I " 

810 IF D>50000 THEN 1010 ELSE PRINT "YOU ARE ALSO DESTROYED !!!" :GOTO 1100 

820 Al=Al+A3+A4:Q=Al:G0SUB 1070:A1=Q: A2=A2+A3+A4:Q=Q2:G0SUB 1070 

830 A2-Q: X=SQR<:D-t-2+(:Q2+5000:)+2-(2+D*Q2*5000*COS<:ABSCA2)+Kl ) ) ) 

840 Y=SG!R(:D-t-2+<:Ql=+=5000:)-t-2-(:2H-=D*Ql*5000*COSCABS(:A2)*Kl) ) ) 

850 D= INT <(X+Y)/2) +15000: HI =H1*3:H2=H2*3:S1=S1-H2:S2=S2-H1 

850 Pl=Pl-H2/3:P2=P2-Hl/3:Wl=Wl-H2/3:W2=W2-Hl/3 

870 IF SK0 THEN 880 ELSE IF S2<0 THEN 900 ELSE 920 

880 PRINT "MR. SCOTT REPORTS SHIELDS ARE OUT!" 

890 K4=1:W1=W1+S1:P1=P1+S1:I1=I1+S1:L1=L1+S1:S1=0:GOTO 950 

900 P2=P2+S2:W2=W2+S2:L2=L2+S2: I2=I2+S2:S2=0 

910 PRINT "CHECKOV REPORTS KLINGON SHIELDS ARE OUT!":GOTO 950 

920 IF SK25 THEN 930 ELSE IF S2 <25 THEN 940 ELSE 950 

930 PRINT "SCOTTY REPORTS NUMBER 4 & 6 SHIELDS HAVE BUCKLED !" :GOTO 950 

940 PRINT "SENSORS SHOW THAT KLINGONS SHIELDS ARE WEAK!" 

950 H1=0:H2=0:IF LK10 THEN 950 ELSE IF L2<10 THEN 1010 ELSE 1030 

950 C=INT(3*RND(0:»:) + l:ON C GOTO 970,980,990 

970 PRINT "YOU HAVE BEEN DESTROYED. KLINGONS TAKE OVER!":GOTO 1100 

980 PRINT "YOU HAVE BLOWN UP! YOU LOSE!": GOTO 1100 

990 PRINT "YOU LOSE. MR. SCOTT, SULU, CHECKOV, SPOCK, AND" 

1000 PRINT "UHURA REPORT THAT YOU ARE AN IDIOT !! i " :GOTO 1100 

1010 PRINT "KLINGONS ARE DEAD, YOU'VE SAVED THE GALAXY !": GOTO 1100 

1020 PRINT "SULU REPORTS KLINGONS ARE DEAD! YOU WIN!" :GOTO 1100 

1030 IF LK50 THEN 1040 ELSE IF L2<50 THEN 1050 ELSE 180 

1340 PRINT "LT. UHURA REPORTS LIFE SUPPORT IS FAILING I": GOTO 180 

1050 PRINT "SENSORS SHOW KLINGONS ARE ALMOST OUT OF POWER! "sGOTO 180 

1050 PRINT "WHAT ANGLE DO YOU WANT TO SHOOT AT"?: INPUT A: RETURN 

1070 IF A<-1S0 THEN 1080 ELSE IF Q> 180 THEN 1030 ELSE RETURN 

1080 A=A+350 sGOTO 1070 

1030 Q=Q-360 sGOTO 1070 

1100 END 
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PSK9 




Description 

A game of playing the stock market is simulated by the computer in 
this program. A group of corporations are listed in a table or tabula- 
tion board and the player buys and sells stocks for a profit (or loss) 
from the corporations on the board. The object of the game is to make 
more money than your opponent. 

Corporations are created every day to assure continuance of a busi- 
ness beyond the usually shorter period of time that a single proprietor 
or members of a partnership exist. A corporation can gather together 
and obtain far greater amounts of working capital than any single indi- 
vidual or a partnership. 

A corporation is permitted to produce negotiable certificates allow- 
ing ready transfer of ownership and management. These certificates are 
commonly called shares of stock. Most shares of a corporation are cre- 
ated to provide funds for companies (corporations) to maintain contin- 
ued expansion and production growth. 

The method of buying and selling stock in this game is as follows. 
The player rolls 2 dice, die "A" and die "B." The player can either 
buy "A" shares of stock in company "B" or buy "B" shares of stock 
in company "A." The player can sell "A" and "B" company stocks the 
same way. Obviously, the player can't sell more shares of stock than he 
has. There is also a 5% brokerage fee on all money transactions. 

In order to make the price of a stock go up or down the player 
must use his turn not to buy or sell, but to raise or lower the price of 
any stock. This is done by raising stock "A" by "B" dollars or by drop- 
ping stock "A" by "B" dollars. The player can also raise or lower stock 
"B"by "A" dollars. 

Everyone starts the game with $50, and the game ends when a per- 
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son has $100 cash on hand. The computer is very "bullish," so all 
"bears" beware! 

Note 

Option 1 is used to buy or sell stocks and Option 2 is used to raise or 
lower the price of a stock. A negative number for shares is typed in for 
selling or lowering a particular stock. 



Variable list 

A(.) = Assets owned by each player 

A9 = Average cost per share 
C( ) = Dollars per share for each stock 

C1 = Company number chosen by player 
M( ) = Cash on hand for each player 

01 = Option number chosen by player 

Q = Number of players in game 
S( ) = Number of shares of each stock owned by the players 

SI = Number of shares chosen by player 
T = Number of dollars each player begins the game with 

Tl = Number of dollars needed to win game 



Sample run 

STOCK MARKET GAME 

HOW MANY PLAYERST2 

DO YOU WISH FOR THE INSTRUCTIONS? (1 FOR YES)?1 



THIS IS A GAME OF STOCK MARKET. THE OBJECT OF THIS 

GAME IS TO MAKE MORE MONEY THAN YOUR OPPONENT. 

THIS IS DONE BY BUYING AND SELLING STOCKS FOR A PROFIT. 

THE WAY YOU BUY AND SELL STOCK IS AS FOLLOWS. YOU ROLL TWO 
DICE? SAY DICE A AND DICE B. YOU CAN EITHER BUY 'A' SHARES 
OF STOCK IN COMPANY 'B' OR BUY 'B' SHARES OF STOCK IN COMPANY 'A' 
THE SAME GOES FOR SELLING EXCEPT » OBVIOUSLY , YOU CAN'T SELL MORE 
SHARES OF STOCK THAN YOU HAVE. THERE IS ALSO A 5% BROKERAGE 
FEE ON ALL MONEY TRANSACTIONS. 

TO MAKE THE PRICE OF A STOCK GO UP OR DOWN REQUIRES THAT 
YOU USE YOUR TURN, NOT TO BUY OR SELL, BUT TO RAISE OR LOWER 
THE PRICE OF ANY STOCK. THIS IS DONE BY RAISING 'A' STOCK 
BY 'B' DOLLARS OR BY DROPPING 'A' STOCK BY 'B' DOLLARS. IT 
ALSO WORKS IN REVERSE? THAT IS YOU RAISE OR LOWER 'B' STOCK 
BY 'A' DOLLARS. 
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OPTION 1 IS USED TO BUY OR SELL STOCKS WHILE 

OPTION r> IS USED TO RAISE OR LOWER THE PRICE OF A STOCK. 

TO SELL OR LOWER A STOCK. TYPE IN A NEGATIVE NUMBER FOR SHARES. 

EVERYONE STARTS THE GAME WITH 50 DOLLARS? AND THE GAME 
ENDS WHEN A PERSON HAS 100 DOLLARS. CASH ON HAND. 



GOOD LUCK 



i i 



STOCK MARKET TABLE 



- STOCKS — 

NM STOCK NAME 


S/SHARE 


**PLAYER 1* 
SHR WORTH 


**PLAYER 2* 
SHR WORTH 


**PLAYER 3* 
SHR WORTH 


1 DIAMONDS INC. 

2 MINI-COMP 

3 MUTUAL MOTORS 

4 MEANCHILD ELEC 

5 GRANDPA BELL 

6 BROKE FINANCE 


1 
4 
3 
. 6 
5 
5 






































TOTALS 

CASH ON HAND 

TflTAI ASSETS T 


DATE 






50 
50 








50 
50 





AVERAGE COST PER SHARE $ 4 UP 4 DOLLARS PER SHARE 



IT IS PLAYER 1 'S TURN. 

YOU ROLLED A 2 AND AN 4 

ENTER OPTION. COMPANY. SHAREST1.2.4 

IT IS PLAYER 2 'S TURN. 

YOU ROLLED A 6 AND AN 6 

ENTER OPTION. COMPANY. SHARES?!. 6.6 



STOCK MARKET TABLE 







*4pl AYirC' 


1 * 


*#pl AYFR ?* 


♦♦PLAYER 3* 


NM STOCK NAME */SHARE 


SHR 


WORTH 


SHR 


WORTH 


SHR WORTH 


1 DIAMONDS INC. 


1 


















2 MINI-COMP 


4 


4 


16 












3 MUTUAL MOTORS 


3 


















4 MEANCHILD ELEC. 


6 


















5 GRANDPA BELL 


5 


















6 BROKE FINANCE 


5 










6 


30 




TOTALS 




4 


16 




6 


30 




CASH ON HAND 






33.2 






18.5 




TOTAL ASSETS TO 


DATE 




49.2 






48.5 




AVERAGE COST PER SI 


4ARE * 


4 NO CHANGE, 









DO YOU WISH TO CONTINUE? (1 FOR YES)?1 



131 



IT IS PLAYER 1 'S TURN. 

YOU ROLLED A 6 AND AN 4 

ENTER OPTION, COMPANY, SHARES?2,6,-4 

THE STOCK FOR COMPANY 6 NOW COSTS $ 1 

IT IS PLAYER 2 'S TURN. 

YOU ROLLED A 1 AND AN 4 

ENTER OPTION, COMPANY, SHARES?!, 1,4 



STOCK MARKET TABLE 

STOCKS 

NM STOCK NAME $/SHARE 



1 
2 

3 
4 
5 
6 



DIAMONDS INC. 1 

MINI-COMP 4 

MUTUAL MOTORS 3 

MEANCHILD ELEC. 6 

GRANDPA BELL 5 

BROKE FINANCE 1 



TOTALS 

CASH ON HAND 

TOTAL ASSETS TO DATE 



**PLAYER 


1* 


**PLAYER 2* 


**PLAYER 3* 


SHR WORTH 


SHR 


WORTH 


SHR WORTH 







4 


4 




4 16 
























































6 


6 




4 16 




10 


10 




33.19 






14.3 




49.19 






24.3 





AVERAGE COST PER SHARE $ 3.33 DOWN .67 DOLLARS PER SHARE. 



DO YOU WISH TO CONTINUE? <1 FOR YES)?1 



IT IS PLAYER 1 'S TURN. 

YOU ROLLED A 4 AND AN 2 

ENTER OPTION, COMPANY, SHARES? 1,2, 4 

IT IS PLAYER 2 'S TURN. 

YOU ROLLED A 5 AND AN 6 

ENTER OPTION, COMPANY, SHARES?!?, 6, 5 

THE STOCK FOR COMPANY 6 NOW COSTS * 6 



STOCK MARKET TABLE 





STOCKS 





♦♦PLAYER 


1* 


**PLAY£R 2* 


NM 


STOCK NAME */SHARE 


SHR WORTH 


SHR WORTH 


1 


DIAMONDS INC. 


1 










4 4 


2 


MINI-COMP 


4 


8 


32 







3 


MUTUAL MOTORS 


3 













4 


MEANCHILD ELEC. 


6 













5 


GRANDPA BELL 


5 













6 


BROKE FINANCE 
TOTALS 


6 










6 36 




8 


32 




10 40 




CASH ON HAND 






16.39 




14.3 




TOTAL ASSETS TO 


DATE 




48.39 




54.3 



♦♦PLAYER 3^ 
SHR WORTH 
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AVERAGE COST PER SHARE * 4.16 UP .83 DOLLARS PER SHARE, 

DO YOU WISH TO CONTINUE? (1 FOR YES)?0 
READY . 

QQQQQQQQQQ 

Program listing 

100 DIM CCEO,S<:3, 6), MC3), PK3) 

110 T=50:REM DOLLARS TO START GAME WITH 

120 T1=100:REM DOLLARS FOR ENu Uh DP.Mt 

130 CLS 

140 PRINT TAB C 30) "STOCK MARKET GAME": PRINT 

1E0 FOR 1=1 TO 3:M(I)=T:NEXT I 

170 PRINT "HOW MANY PLAYERS" ;: INPUT Q: PRINT 

130 IF Q<1 THEN 170 ELSE IF Q> 3 THEN 170 

130 FOR 1 = 1 TO b:CCI>=INT<:e*RNDCI>:>+lsNEXT I 

200 PRINT "DO YOU WISH FOR THE INSTRUCTIONS? CY=YES) ";: INPUT A* 

210 IF A*="Y" THEN GOSUB 10S0 

220 GOSUB E00 

230 PRINT 

240 PRINT:PRINT:FOR 1=1 TO Q 

250 PRINT "IT IS PLAYER" I"'S TURN, ":PRINT 

2E0 C= I NT C G*RND C ) ) + 1 : S= I NT ( G*RND ( > ) + 1 

270 PRINT "YOU ROLLED A"C"AND AN"S 

230 PRINT "ENTER OPTION, COMPANY, SHARES" ;: INPUT 01, 01, SI 

230 IF C1=C THEN 300 ELSE IF COABS CS1) THEN 230 

300 IF S=ABSCS1> THEN 320 ELSE IF SO CI THEN 230 

310 IF ABSCS1)>E THEN 230 

320 IF 01O1 THEN 430 ELSE IF S1<0 THEN 330 

330 C2=(:si+ccci :)) + c. 05* <:si*ccci))) 

340 IF M<:i)>C2 THEN 330 

350 PRINT " PERSON" I"DOESN'T HAVE ENOUGH MONEY. " : GOTO 230 

330 S ( I , C 1 ) =S a , 1 ) +S 1 : M ( I ) =M C I ) -C2 

370 GOTO 430 

~S0 IF SCI,C1)+S1>=0 THEN 400 

330 PRINT "YOU DON'T HAVE THAT MANY SHARES — TRY AGAIN. ":GOTO 230 

400 C2=!:si*ct:ci))-(:.05*i:si*ccci)>) 
410 m<:i}=m<:i:>+abs<:c2> 
420 s<:i,ci:>=sci,ci>+si 
430 if ccco+sna then 430 

440 PRINT "YOU CAN'T DO THAT, STOCK DROPS BELOW ZERO." 
450 PRINT: GOTO 280 
4E0 C(Ci)=CCCl)+Sl 

470 PRINT "THE STOCK FOR C0MPANY"C1 "NOW COSTS *"CCC1) 
430 FOR F=l TO 750: NEXT F 
430 PRINT: IF MCI)>=T1 THEN 540 
500 NEXT I SPRINT: PRINT 
510 GOSUB B00 

520 PRINT "DO YOU WISH TO CONTINUE? <Y=YES) ";: INPUT A* 
530 IF A*="Y" THEN 230 ELSE 1350 
540 PRINT:GOSUB 300: PRINT: PRINT 

550 PRINT "*************** GAME IS OVER **+***********+" 
550 PRINT "PERSON" 1-1 "HAS WON WITH"MC 1-1 > "DOLLARS" 
570 PRINT:PRINT 

530 PRINT "*** CONGRATULATIONS TO PERSON" 1-1 
,530 GOTO 1350 
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500 CLS 

610 PRINT TAB C5) "STOCK MARKET TABLE"? PRINT 

520 PRINT " STOCKS "5 

E30 PRINT TABC27)" PLAYER i PLAYER 2 PLAYER 3" 

640 PRINT "NM STOCK NAME" TAB C 17) "*/SHARE" ; 

550 PRINT TABC25)"SHR WORTH SHR WORTH SHR WORTH" 

G50 A9=0sFOR 1=1 TO 5: PRINT I;TABC4); 

570 IF 1=1 THEN PRINT "DIAMONDS INC. ";: GOTO 730 

ES0 IF 1=2 THEN PRINT "MINI-COMP" ; : GOTO 730 

590 IF 1=3 THEN PRINT "MUTUAL MOTORS" ; :GOTO 730 

700 IF 1=4 THEN PRINT "MEANCHILD ELEC. ""GOTO 730 

710 IF 1=5 THEN PRINT "GRANDPA BELL";:GOTO 730 

720 PRINT "BROKE FINANCE" ; :GOTO 730 

730 A3=A3+CCI):PRINT TABC 13) ; CC I ) ; 

740 FOR K=i TO Q 

750 PRINT TABCC CK-1 )*14)+27) ;SCK, I) ; 

750 PRINT TABCCCK-i)H-=14)+33) ;SCK, I ) *C C I > ; 

770 NEXT K:PRJNT:NEXT I 

7S0 PRINT SPRINT "HIT -ENTER- TO CONTINUE. ..";: INPUT F:CL5 

730 PRINT TAB (4) "TOTALS"; 

S00 FOR 1 = 1 TO 3:ACI)=0:NEXT I 

810 FOR 1=1 TO Q:B9=0:C3=0 

S20 FOR X=l TC S 

S30 B9=B3+S ( I , X ) 

840 C9=C3+ CS(I.X) *C C X ) ) 

850 A C I ) =A < I ) + ( S C I , X ) *C ( X ) ) 

850 NEXT X 

370 PRINT TABCCCI-i)+14)+27) ;B3; 

880 PRINT TABCCCI-1)*14)+31) ;C3; 

830 NEXT I: PRINT 

300 PRINT TABC4) ;"CASH ON HAND"; 

310 FOR 1 = 1 TO Q:MCI)=INTCMCI)*i00)/100 

320 PRINT TABCC C 1-1 )*14)+23) "MCI) ; : AC I )=AC I )+MC I ) 

330 NEXT I SPRINT 

340 PRINT TABC4); "TOTAL ASSETS TO DATE"; 

350 FOR 1 = 1 TO Q: PRINT TABC C C 1-1 )*14)+23) ; AC I ) ; 

360 NEXT I:PRINT:PRINT 

970 PRINT "AVERAGE COST PER SHARE *"; 

380 A3=A3/6!A9=INTCA3+100)/100 

330 PRINT A3; 

1000 IF A9-ASO0 THEN 1020 

1010 PRINT " NO CHANGE. "s GOTO 1050 

1020 IF A3-A8C0 THEN 1050 

1030 PRINT " UP" ;A3-A8; "DOLLARS PER SHARE." 

1040 GOTO 1050 

1050 PRINT " DOWN" ;AS-A3; "DOLLARS PER SHARE." 

1050 AS=A3 

1070 PRINT: PRINTsRETURN 

1080 CLS 

1030 PRINT "THIS IS A GAME OF STOCK MARKET. THE OBJECT OF THIS" 

1100 PRINT "GAME IS TO MAKE MORE MONEY THAN YOUR OPPONENT." 

1110 PRINT "THIS IS DONE BY BUYING AND SELLING STOCKS FOR A PROFIT." 

1120 PRINT 

1130 PRINT "THE WAY YOU BUY AND SELL STOCK IS AS FOLLOWS. YOU ROLL TWO" 

1140 PRINT "DICE; SAY DICE A AND DICE B. YOU CAN EITHER BUY 'A' SHARES' 

1150 PRINT "OF STOCK IN COMPANY ' B' OR BUY ' B' SHARES OF STOCK IN COMPANY' 

11E0 PRINT "'A'. THE SAME GOES FOR SELLING EXCEPT, OBVIOUSLY, YOU CAN'T" 

1170 PRINT "SELL MORE SHARES OF STOCK THAN YOU HAVE. THERE IS ALSO A 5"/." 

1130 PRINT "BROKERAGE FEE ON ALL MONEY TRANSACTIONS." 

1200 PRINT: PRINT "HIT -ENTER- TO CONTINUE. ..";: INPUT ZsCLS 

1210 PRINT "TO MAKE THE PRICE OF A STOCK GO UP OR DOWN REQUIRES THAT" 

1220 PRINT "YOU USE YOUR TURN, NOT TO BUY OR SELL, BUT TO RAISE OR LOWER" 

.1.230 PRINT "THE PRICE OF ANY STOCK. THIS IS DONE BY RAISING 'A' STOCK" 

1240 PRINT "BY ' B' DOLLARS OR BY DROPPING 'A' STOCK BY 'B' DOLLARS. IT" 

1250 PRINT "ALSO WORKS IN REVERSE; THAT IS YOU RAISE OR LOWER ' B' STOCK" 

1260 PRINT "BY 'A' DOLLARS.: PRINT 
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1270 PRINT "OPTION 1 IS USED TO BUY OR BELL STOCKS WHILE" 

l'-'B0 PRINT "OPTION 2 IS USED TO RAISE OR LOWER THE PRICE OF A STOCK. " 

1290 PRINT "TO SELL OR LOWER A STOCK, TYPE IN A NEGATIVE NUMBER FOR" 

1300 PRINT "SHARES. ":PRINT 

1310 PRINT "EVERYONE STARTS THE GAME WITH"T"DOLLARS, AND THE GAME" 

13'"'0 PRINT "ENDS WHEN A PERSON HAS"T1 "DOLLARS, CASH ON HAND." 

1340 PRINT "GOOD LUCK ! I i ! " : PRINT: PRINT "HIT -ENTER- TO BEGIN. .." 5 : INPUT Z:Q. 

S: RETURN 

1350 END 
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Description 

Enter any alphanumeric phrase into the computer, and it will make a 
readable paper tape of that phrase through your teletype punch. 



Variable list 

C = Position in data table for information 
CI = First of 5 lines punched to created character 
C2 = Second of 5 lines punched to create character 
C3 = Third of 5 lines punched to create character 
C4 = Fourth of 5 lines punched to create character 
C5 = Fifth of 5 lines punched to create character 

K = Character count when entering phrase 
L( ) = Phrase entered to be punched 

S = Option number 
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Sample run 

THIS PROGRAM WILL MAKE READABLE PAPER TAPE. 

DO YOU WANT THE INSTRUCTIONS? (1 FOR YES)?1 



OPTION EXPLANATION 

1 PRINTS A BLANK LEADER. 

i ACCEPTS UP TO 60 ALPHANUMERIC CHARACTERS 

TO BE PUNCHED INTO READABLE TAPE. 
3 EXITS FROM THE PROGRAM. 

PUT ON TAPE PUNCH AFTER HEARING BELLS. THERE IS 
A 5 SECOND DELAY AFTER THE BELLS. WHEN THE PROGRAM 
IS DONE PUNCHING f THERE IS ANOTHER DELAY ABOUT 10 
SECONDS LONG. BE SURE TO SHUT OFF PUNCH 
DURING THAT INTERVAL. 

IF YOU HAVE A PHRASE LONGER THAN 60 CHARACTERS 
SIMPLY USE OPTION 2 AS MANY TIMES AS NECESSARY ? 
BUT BE SURE TO SHUT OFF THE PUNCH WHEN IT'S DONE 
PUNCHING OUT EACH 60 CHARACTERS. 

ANY CHARACTER ON THE KEYBOARD MAY BE USED. SPACES 
TYPE OUT AS 5 BLANKS. 



0PTI0NT2 

INPUT THE PHRASE, NO MORE THAN 60 CHARACTERS. 
HIT RUBOUT TO DELETE THE LAST CHARACTER AND 
HIT RETURN WHEN DONE WITH THE PHRASE. 

COMPUTERS ARE FUN ! ! 



0PTI0NT3 
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READY, 



OOOOQOOOQO 
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Program listing 
TAPLAB 



100 DIM LC60) 

110 CLS 

120 PRINT "THIS PROGRAM WILL MAKE READABLE PAPER TAPE. " 

130 PRINT 

140 PRINT "DO YOU WANT THE INSTRUCTIONS? (Y=YES) ";: INPUT L* 

150 CLS 

160 IF L*="Y" THEN 1S0 ELSE 420 

1S0 PRINT "OPTION", "EXPLANATION" 

190 PRINT 

200 PRINT " 1", "PRINTS A BLANK LEADER." 

210 PRINT " 2", "ACCEPTS UP TO S0 ALPHANUMERIC CHARACTERS" 

220 PRINT " ","TO BE PUNCHED INTO READABLE TAPE." 

230 PRINT " 3", "EXITS FROM THE PROGRAM." 

240 PRINT 

250 PRINT "PUT ON TAPE PUNCH AFTER HEARING THE BUZZER. THERE" 

2S0 PRINT "IS A 5 SECOND DELAY AFTER THAT. WHEN THE PROGRAM" 

270 PRINT "IS DONE PUNCHING, THERE IS ANOTHER DELAY ABOUT 10" 

2S0 PRINT "SECONDS LONG. BE SURE TO SHUT OFF PUNCH" 

2S0 PRINT "DURING THIS INTERVAL." 

300 PRINT:PRINT "HIT -ENTER- TO CONTINUE. .."; s INPUT ZsCLS 

310 PRINT "IF YOU HAVE A PHRASE LONGER THAN 60 CHARACTERS" 

320 PRINT "SIMPLY USE OPTION 2 AS MANY TIMES AS NECESSARY," 

330 PRINT "BUT BE SURE TO SHUT OFF THE PUNCH WHEN IT'S DONE" 

340 PRINT "PUNCHING THE 60 CHARACTERS." 

350 PRINT 

360 PRINT "ANY CHARACTER ON THE KEYBOARD MAY BE USED. SPACES" 

370 PRINT "TYPE OUT AS 5 BLANKS. " 

3S0 PRINT 

390 PRINT "HIT -ENTER- TO BEGIN. .." 5 s INPUT Z 

420 K=0 

430 CLS: PRINT "OPTION" 5 : INPUT S 

440 PRINTsON S GOTO 490,520,740 

450 PRINT "INCORRECT OPTION, TRY AGAIN. ":GOTO 430 

490 GOSUB 750 

500 FOR 1=1 TO 405PRINT CHR$C0) sNEXT I 

510 GOTO 660 

520 PRINT "INPUT THE PHRASE, NO MORE THAN 60 CHARACTERS." 

530 PRINT "HIT -ENTER- WHEN DONE WITH PHRASE. ": PRINT 

540 INPUT K* 

550 GOSUB 750 

560 Z=LENCK*):IF Z>60 THEN 430 

570 FOR N=1T0Z:X=ASC<MID*CK*, N, D) 

5S0 C=X-32+l: RESTORE 

590 IF C=l THEN 610 

600 FOR 1 = 1 TO C-UREAD CI, C2, C3, C4, C5:NEXT I 

610 READ CI, C2,C3,C4,C5 

620 PRINT CHR*CCi:> 

625 PRINT CHR$CC2) 

630 PRINT CHR$CC3) 

635 PRINT CHR$CC4) 

640 PRINT CHR*CC5) 

650 NEXT N 

660 FOR F=l TO 1500:NEXT F 

670 GOTO 430 

740 GOTO 1030 

750 FOR 1=1 TO 100:OUT255, 6:0UT255, 0: NEXT I : REM BUZZER 

760 FOR 1=1 TO 2500 JNEXT I : RETURN 

770 DATA 0,0,0,0,0,0,0,95,0,0 

780 DATA 0, 9G, 0, 96, 0, 20, 62, 20, 62, 20 

790 DATA 58, 73, 127, 73, 46, 95, 99, 68, 83, 99 

300 DATA 22,41,21,2,5,0,0,96,0,0 
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S10 DATA 0,0,28,34,65,65,34,28,0,0 

820 DATA 42, 28, 127, 28, 42, S, 8, E2, 8, 8 

830 DATA 0,1,7,0,0,0,8,8,8,0 

840 DATA 0,0,1,0,0,3,4,3,16,98 

850 DATA 127,67,73,97,127,1,1,33,63,1 

860 DATA 103,79,73,89,121,73,73,73,73,119 

870 DATA 120,8,8,8,127,123,73,73,73,79 

880 DATA 127,73,73,73,79,64,64,71,72,96 

890 DATA 54,73,73,73,54,120,72,72,72,127 

900 DATA 0,0,20,0,0,0,2,20,0,0, 

910 DATA 0,8,20,34,65,20,20,20,20,20 

920 DATA 65, 34, 20, 8, 0, 1 12, 64, 77, 72, 120 

930 DATA 0, 0, 0, 0, 

940 DATA 15,56,72,56,15,127,73,73,73,54 

950 DATA 127,65,65,55,65,127,65,65,65,62 

960 DATA 127,73,73,73,65,127,72,72,72,64 

970 DATA 62,65,69,69,103,127,8,8,8,127 

980 DATA 65,65,127,65,55,71,65,127,64,64 

990 DATA 127,8,20,34,55,127,1,1,1,1 

1000 DATA 127,48,24,48,127,127,48,8,5,127 

1010 DATA 127,65,65,55,127,127,72,72,72,120 

1020 DATA 127,65,59,57,127,127,88,84,82,113 

1030 DATA 121,73,73,73,79,64,64,127,64,64 

1040 DATA 127, 1, 1, 1, 127, 112, 12, 1, 12, 112 

1050 DATA 127,6,2,6,127,99,54,28,54,99 

1060 DATA 120,9,10,12,120,75,77,73,89,105 

1070 DATA 127,65,65,65,0,96,15,8,4,3 

1080 DATA 0,65,65,65,127,16,32,127,32,16 

1090 END 
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Description 

Tennis anyone? This program simulates a tennis singles (2 players) 
match. You play against the computer. 

A singles tennis match is the best 2 out of 3 sets. A set is a series of 
games wherein 1 player has won at least 6 games and in every case has 
won 2 more than his opponent. The player must win by a 2-game mar- 
gin. Normally a set is won by the scores: 6-0, 6-1 , 6-2, 6-3, or 6-4. 
However, a set may be won by scores: 7-5, 8-6, 9-7, etc. 

A game of tennis is won when the first player wins 4 exchanges of 
shots (hitting the ball in a position on the court away from the oppo- 
nent). Again the player must win by a margin of 2 exchanges. 

The scoring of tennis is as follows: 

The first point (exchange) won is referred to as "15." 
The second point won is "30." 
The third point won is "40." 

The fourth point and final point won is simply "Game/' 
"Deuce" is when the players are tied at 40 each. 
"Advantage" refers to the first point scored after deuce by either 
player. It is either your or your opponent's advantage. 
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"Love" means zero in tennis. 

The server's score is always referred to first (i.e., 15-40). 

In the computer game there are several options open to you, such as 
your position on the court, placement of the ball on the court, and the 
speed of the ball. Your option is specified by a number given to you by 
the computer. You will always be allowed to serve first and backhand 
and forehands will be assumed. Good luck! The computer has been 
taught its game by a very famous tennis pro! 



Variable list 

A9 = Type of serve (first serve) 
B = Way in which computer's shot went bad 

B9 = Type of serve (second serve) 
C = Probability of serving a let serve (first serve) 

C9 = Type of shot attempted by player 
D = Probability of making the serve (first serve) 
G = Probability of serving a let serve (second serve) 
H = Probability of making the serve (second serve) 
I = Probability of serve not being returned (first shot) 
N = Probability of serve not being returned (second shot) 
Q = Positioning of player for return of shot 
R = Area of court shot aimed for 
S = Probability of return being good 
U = Way in which player's shot went bad 
W = Probability of computer's return being good 
Y = Points scored by player 

Y1 = Games won by player 
Z = Points scored by computer 

Z1 = Games won by computer 



Sample run 

TENNIS GAME! 

THIS PROGRAM WILL SIMULATE A TENNIS SINGLES MATCH. 
THERE ARE SEVERAL OPTIONS AVAILABLE TO YOU AS TO POSITION, 
PLACEMENT, AND SPEED (TYPE) OF SHOT. THE KEY THAT YOU 
USE is: 

POSITIONS (PLACEMENTS TOO): 

1 LEFT BACKCOURT 

2 RIGHT BACKCOURT 

3 LEFT FORECOURT 

4 RIGHT FORECOURT 
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SPEED (TYPE) OF SHOTS! 

1 FAST SLAM 

2 SLOW LOB 

ALWAYS SPECIFY YOUR OPTION BY NUMBER. YOU WILL BE ALLOWED 
TO SERVE FIRST IN ALL GAMES. 

BACKHANDS AND FOREHANDS WILL BE ASSUMED. 



GOOD LUCK! 



SERVE! TYPET1 
SERVE IS BAD 
SERVE AGAIN! TYPET1 
SERVE IS BAD... DOUBLE FAULT! 

SCORE-POINTS YOU... ME 
1 



SERVE! TYPE?1 

SERVE HAS BEEN RETURNED... 

WHAT IS YOUR P0SITI0NT4 

WHAT TYPE OF SHOT ARE YOU MAKINGT2 

WHAT PART OF THE COURT ARE YOU AIMING FOR?l 

YOUR RETURN IS GOOD! 

COMPUTER'S RETURN IS GOOD! 

WHAT IS YOUR P0SITI0NT2 

WHAT TYPE OF SHOT ARE YOU MAKING?1 

WHAT PART OF THE COURT ARE YOU AIMING FOR?3 

YOUR RETURN IS GOOD! 

COMPUTER'S RETURN IS GOOD! 

WHAT IS YOUR POSITIONT1 

WHAT TYPE OF SHOT ARE YOU MAKINGT2 

WHAT PART OF THE COURT ARE YOU AIMING F0R?2 

YOUR RETURN IS GOOD! 

NICE SHOT-THE COMPUTER COULDN'T REACH IT 

SCORE-POINTS YOU... ME 

1 1 

SERVE! TYPET1 

SERVE HAS BEEN RETURNED... 

WHAT IS YOUR POSITION?! 

WHAT TYPE OF SHOT ARE YOU MAKINGT1 

WHAT PART OF THE COURT ARE YOU AIMING F0R?4 

YOUR RETURN IS GOOD! 

NICE SHOT-THE COMPUTER COULDN'T REACH IT 

SCORE-POINTS YOU... ME 

2 1 
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SERVE! TYPET1 
SERVE IS BAD 
SERVE AGAIN! TYPET1 
LET SERVE. . .TAKE 1 
SERVE AGAIN! TYPE?:l. 
SERVE IS GOOD.. .ACE! 



SCORE-POINTS 



YOU. . .ME 
3 1 



SERVE! TYPET1 
SERVE IS BAD 
SERVE AGAIN! TYPET1 
SERVE IS BAD... DOUBLE FAULT! 



SCORE-POINTS 



YOU. . .ME 
3 2 



SERVE! TYPE71 
SERVE IS BAD 
SERVE AGAIN! TYPET1 
SERVE IS BAD... DOUBLE FAULT! 



SCORE-POINTS 



YOU. ..ME 
3 3 



SERVE! TYPE?1 

SERVE IS GOOD... CAN'T BE RETURNED! 



SCORE-POINTS 



YOU. . .ME 
4 3 



SCORE-GAMES 



YOU. . .ME 
1 



SERVE! 



TYPE? 



OOQQQOQQQQ 
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Program listing 



100 
110 
120 
130 
140 
150 
1G0 
170 
1S0 
130 
135 
200 
210 
220 
230 
240 
250 



CLS:PR 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT: 

PRINT: 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



INT "TENNIS OfiME! ": PRINT 

" THIS PROGRAM WILL SIMULATE A TENNIS SINGLES MATCH. " 
"THERE ARE SEVERAL OPTIONS AVAILABLE TO YOU AS TO POSITION, 
"PLACEMENT, AND SPEED (TYPE) OF SHOT. THE KEY THAT YOU" 
"USE IS:": PRINT: PRINT "POSITIONS (PLACEMENTS TOO):" 



"1"?TABC5) 5 "LEFT BACKCOURT" 
"2";TABC5> ""RIGHT BACKCOURT" 
"3" 5TABC5) ; "LEFT FORECOURT" 
"4";TABC5> ; "RIGHT FORECOURT" 
PRINT "HIT -ENTER- TO CONTINUE 
PRINT "SPEED (TYPE) OF SHOTS:" 
"1";TAB<:5> ""FAST SLAM": PRINT " 
"ALWAYS SPECIFY YOUR OPTION BY 
"TO SERVE FIRST IN ALL GAMES. " 



. . . "5 s INPUT F:CLS 

: PRINT 

2";TABC5) ;"SLOW LOB" : PRINT 

NUMBER. YOU WILL BE ALLOWED" 
: PRINT 



"BACKHANDS 
11 GOOD LUCK 



AND FOREHANDS WILLL BE ASSUMED. ": PRINT 
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260 Y=0sZ=0 

270 PRINT 

280 PRINT 

290 PRINT " SERVE? TYPE"; 

300 INPUT 09 

310 A=100*RNDC0) 

320 IF A9=2 THEN 410 

330 C=G 

340 D=51 

350 IF A<C THEN 390 

350 IF fl<D THEN 590 

370 PRINT TfiB(lB) ? " SERVE IS BAD" 

3S0 GOTO 440 

390 PRINT TABC10) ; "LET SERVE. . TAKE TWO." 

400 GOTO 290 

410 C=4 

420 D=EG 

430 GOTO 350 

440 PRINT TABC 10) ; "SERVE AGAIN! TYPE"; 

450 INPUT B9 

4G0 E=100*RNDC0) 

470 IF B9=2 THEN 5G0 

4S0 G=5 

490 H=41 

500 IF E<G THEN 540 

510 IF E<H THEN 590 

520 PRINT TABC 10) ; "SERVE IS BAD. .. DOUBLE FAULT!" 

530 GOTO 1160 

540 PRINT TABC10) ?"LET SERVE. .. TAKE 1" 

550 GOTO 440 

560 G=3 

570 H=7E 

5S0 GOTO 500 

590 I=100*RNDC0) 

G00 IF I>6 THEN E30 

E10 PRINT TABC10) ; "SERVE IS GOOD. .. ACE ! " 

E20 GOTO 1140 

630 K=100*RNDC0) 

640 IF A9=2 THEN 700 

650 IF B9=2 THEN 700 

6E0 N=61 

670 IF K<N THEN 720 

6S0 PRINT TABC 10) ; "SERVE IS GOOD. .. CAN' T BE RETURNED! 

690 GOTO 1140 

700 N=7E 

710 GOTO 670 

720 PRINT TABC 10) ""SERVE HAS BEEN RETURNED..." 

730 PRINT 

740 O=INTC4*RNDC0) )+l 

750 PRINT "WHAT IS YOUR POSITION"; 

760 INPUT -Q 

770 IF 0+D=5 THEN 1110 

7S0 PRINT "WHAT TYPE OF SHOT ARE YOU MAKING"? 

790 INPUT C9 

800 PRINT "WHAT PART OF THE COURT ARE YOU AIMING FOR" 

810 INPUT R:PRINT 

820 S=100*RNDC0) 

830 IF C9=2 THEN S60 

840 IF SCSI THEN 940 

850 GOTO S70 

860 IF S<91 THEN 940 

870 U=4*RNDC0) 

880 PRINT TABC30) ; "YOUR RETURN IS BAD..." 

890 IF UC2 THEN 920 

900 PRINT TABC33);"HIT OUT-OF-BOUNDS" 

910 GOTO 1160 

920 PRINT TABC33) '"HIT INTO NET" 

930 GOTO 1160 

940 PRINT TABC30) ;"YOUR RETURN IS GOOD!" 
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950 PRINT:A1=INT<4*RND<0>) 

360 IF R+A1=5 THEN 1130 

370 W=100*RND<0> 

980 IF C9=2 THEN 390 

990 IF W<84 THEN 1090 

1000 GOTO 1020 

1010 IF W<84 THEN 1090 

1020 B=4*RND<0> 

1030 PRINT TABC30); "COMPUTER'S RETURN IS BAD..." 

1040 IF B<2 THEN 1070 

1050 PRINT TABC33) ;"HIT OUT-OF-BOUNDS" 

1060 GOTO 1140 

1070 PRINT TfiBC33)!"HIT INTO NET" 

10S0 GOTO 1140 

1090 PRINT TAB < 30 >;" COMPUTER'S RETURN IS GOOD!" 

1100 GOTO 730 

1110 PRINT " NICE TRY YOU WERE UNABLE TO REACH THAT SHOT-COURT #"0 

1120 GOTO 1160 

1130 PRINT " NICE SHOT-THE COMPUTER COULDN'T REACH IT" 

1140 Y=Y+1 

1150 GOTO 1170 

1160 1=1+1 

1170 PRINT 

1180 PRINT TAB < 5 >!" SCORE-POINTS YOU. . . ME" 

1190 PRINT TABC21);Y;" ";Z 

1200 IF Y=4 THEN 1230 

1210 IF Z=4 THEN 1250 

1220 GOTO 270 

1230 Y1=Y1+1 

1240 GOTO 1260 

1250 Z1=Z1+1 

1260 FOR F=l TO 60SPRINT "-";:NEXT F:PRINT 

1270 PRINT TABC 15) ; "SCORE GAMES YOU. ..ME" 

1280 PRINT TABC32) -Yl?" " ;Z1 

1290 IF Yl=6 THEN 1320 

1300 IF Zl=6 THEN 1350 

1310 GOTO 260 

1320 PRINT 

1330 PRINT "**** CONGRATULATIONS. .. YOU WON ****" 

1340 GOTO 1370 

1350 PRINT 

1360 PRINT ■'**** AS PREDICTED, THE COMPUTER IS AGAIN TRIUMPHANT ****» 

1370 PRINT 

1380 PRINT "LET'S PLAY AGAIN SOME TIME. RIGHT NOW I NEED SOME" 

1390 PRINT "COOLING FROM MY FANS! ! BYE! !" 

1400 END 
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PEDQ 
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Description 

An old favorite is created in this program. The game of tic-tac-toe is 
printed out and you play against the computer. Remember, the com- 
puter has a memory and won't lose twice the same way! 



Variable list 

C = Number of moves made in game 
C1 = Number of moves made by player 
C( ) = Positioning of board (1 for computer, 2 for player) 

E = Error flag to determine if test made is valid (0 means no error) 

G = Game number 

M = Moves of players 
W( ) = Winning moves of player for each game 
X1 = Number of games won by player 
X2 = Number of ties 
Y1 = Number of games won by computer 



Sample run 

THIS IS A GAME OF TIC-TAC-TOE. 

I'M '0'» YOUR 'X'. 
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positions are: 

1 2 3 
4 5 6 
7 8 9 



I'LL GO FIRST. 
MY MOVE IS: 5 

- - 



WHAT IS YOUR MOVET1 
MY MOVE IS: 3 

X - 
- - 



WHAT IS YOUR MOVE?7 
MY MOVE IS.* 4 



WHAT IS YOUR M0VE?6 
MY MOVE IS: 8 

X - 
X 
X - 

WHAT IS YOUR M0VET2 
MY MOVE IS: 9 

X X 
X 
X 

IT'S A TIE! ! 

ANOTHER GAME? <1=YES>?1 



positions are: 

12 3 
4 5 6 
7 8 9 



I'LL GO FIRST. 
MY MOVE IS: 3 

- - 
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WHAT IS YOUR M0VE?9 
MY MOVE IS! 5 

- - 

- - 

- - X 

WHAT IS YOUR M0VE?7 
MY MOVE IS! 8 

- - 
... _ 

X X 

WHAT IS YOUR M0VE?2 
MY MOVE IS: 4 

- X 
0- 
X X 

WHAT IS YOUR M0VE?6 
MY MOVE IS! 1 

0X0 
X 
X X 

IT'S A TIE! ! 

ANOTHER GAME? <1=YES>?0 

FINAL SCORE: 

YOU ME TIE(S) 2 



READY. 
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Program listing 



TICTAC 



100 DIM CC3), WC72,5) 

lliZ! CLSrPRINT "THIS IS ft GOME OF TIC-TAC-TOE. ": PRINT 

120 PRINT: PRINT "I'M '0', YOU'RE ' X' .": PRINT 

130 PRINT:PRINT "THE POSTIONS fiRE s":PRINT 

140 PRINT "1 2 3" 

150 PRINT "4 5 S" 

160 PRINT "7 S 9" 

1S5 PRINTJPRINT "HIT -ENTER- TO BEGIN. . ."; : INPUT ZsCLS 

170 G=G+1 

1S0 IF G<>72 THEN 130 ELSE G=l 
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190 
200 
210 
220 
225 
230 
240 
250 
260 
270 
230 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4S0 
490 
500 
510 
520 
530 
540 
550 
560 
570 
5S0 
590 
600 
610 
620 
630 
640 
650 
550 
670 
6S0 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
S00 
810 
820 
830 



=0 
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9:Cm=0:NEXT I:C=0:C1= 
THEN 220 
" :PRINT:GOT0 
'SPRINT 
I 
YOUR MOVE";: INPUT M:CLS 



FOR 1=1 TO 

RESTORE: IF RNDC0) <. 5 

PRINT "I'LL GO FIRST. 

PRINT "YOU GO FIRST. ' 

FOR Z=l TO 1000:NEXT 

PRINT:PRINT "WHAT IS 

GOSUB 650 

IF E=0 THEN 270 

PRINT "ILLEGAL MOVE. ":GOTO 230 

C CM) =2: GOSUB 780:C=C+1 

Cl=Cl+l:WCG,Cl)=M 

IF E=l THEN 540 ELSE IF C=9 THEN 540 

M=l 

IF CCM)O0 THEN 330 ELSE CCM)=1 :GOSUB 780 

IF E=l THEN 500 ELSE C(M)=0 

M=M+l:IF MO 10 THEN 310 

M=l 

IF CCM)<>0 THEN 370 ELSE C(M)=2:G0SUB 780 

IF E=l THEN 490 ELSE CCM)=0 

M=M+l:IF MO 10 THEN 350 

IF G=l THEN 450 ELSE 1=1 

E=0:FOR M=l TO CI 

IF WCI,M)=WCG,M) THEN 410 ELSE E=l 

NEXT M:IF E=l THEN 440 

M=WCI,M+1) :IF M=0 THEN 440 

IF CCM)=0 THEN 490 

1 = 1 + 1 : IF I OG THEN 390 

IF RNDC0M.4 THEN 480 

READ M:IF C(M)<>0 THEN 450 ELSE 490 

DATA 5,7,3,9, 1,6,8,4,2 

M=INTC9*RNDC0))+l:IF CCM)=0 THEN 490 ELSE 4S0 

CCM)=1 

PRINT "MY MOVE IS:";M 

PRINT:GOSUB 690:GOSUB 780 

IF E=l THEN 550 

C=C+l:IF C=9 THEN 550 ELSE 230 

PRINT: GOSUB 690 

PRINT:IF Q=0 THEN 580 ELSE IF QO 1 THEN 570 

PRINT "I WON! ! !" :Yl=Yl+l:GOTO 590 

PRINT "YOU WON! ! ! " : X1=X1+1 :GOTO 600 

PRINT "IT'S A TIE! ! !":X2=X2+1 

FOR 1=1 TO 5:W(G, I>=0:NEXT I:G=G-1 

PRINT: PRINT "ANOTHER GAME? (Y=YES) " 5 : INPUT A* 

CLS:IF A$="Y" THEN 130 

PRINT:PRINT "FINAL SCORE: ": PRINT 

PRINT "YOU" XI" ME"Y1" TIE(S)"X2 

PRINT:PRINT:GOTO 910 

E=0:IF M<1 THEN 670 ELSE IF M> S THEN 570 

IF CCM)=0 THEN 680 

E=l 

RETURN 

FOR 1=1 TO 

PRINT " ";:IF CCI)O0 THEN 720 

PRINT "-"; 

IF CCI) <> 1 

PRINT "X"; 

IF I/30INTCI/ 

PR I NT: GOTO 770 

PRINT " "; 

NEXT I : RETURN 

E=0:Q=CC5) :IF Q=0 

IF CCI) OQ 

E=l: RETURN 

IF CC3)OQ THEN 820 ELSE IF CC7)=Q THEN S00 

IF CC2)OQ THEN S30 ELSE IF CCS)=Q THEN 800 

IF CC4)OQ THEN 840 ELSE IF CC6)=Q THEN 800 



9 

IF CCI) <>0 
GOTO 740 
THEN 730 ELSE 



PRINT "O";:G0T0 740 



) THEN 760 



THEN 840 
THEN 810 ELSE IF CC9)OQ THEN 
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340 Q=CC1):IF Q=0 THEN S70 

850 IF CC2)OQ THEN 8£0 ELSE IF CC3)=Q THEN S00 

3E0 IF C(4)O0 THEN 870 ELSE IF C(7)=Q THEN S00 

370 Q=CO):IF Q=0 THEN 900 

880 IF CC3)OQ THEN S90 ELSE IF CCE)=Q THEN 800 

890 IF C(7)OQ THEN 300 ELSE IF CC8)=Q THEN 300 

300 Q=0: RETURN 

910 END 
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Computer 
Games 



By J. Victor Nahigian 
& William S. Hodges 



An exciting and challenging collection of games designed 
especially for your TRS-80 microcomputer! Nahigian and Hodges 
have provided complete programs for a wide variety of highly 
entertaining games, from the traditional to the new and unusual, 
including: 



Basket 


Escape 


Poker 


Biorhythm 


Fish 


Psycho 


Blackjack 


Golf 


Roll On 


Boggle 


Gunner 


Skeedoodle 


Bullet 


Horse 


Star Trek 


Compat 


Jackpot 


Stocks 


Date 


Kismet 


Taplab 


Dogs 


Notone 


Tennis 


Easter 


Poem 


Tic-Tac-Toe 



Each game is written in BASIC programming language for use with 
your Level II TRS-80 computer. Complete programming notes, 
probability tables and amusing illustrations add to the fun and 
instructional value of Computer Games. 
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